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1 000000 LREPT 0 

| g IDENTIFICATION 

| g Ni 

| $ 

8 PRODUCT CODE:  AC-SOS1A-MC 

| 10 PRODUCT NAME:  CVVTCAO VTV30-k LOGIC TEST 

| 12 PRODUCT DATE:  22-MAR-B0 

| 
1% MAINTAINER: COMPUTER. SPECIAL SYSTEMS, 
15 DIGITAL EQUIPMENT CO. LTD., 
16 READING, BERKSHIRE. U.K. 
18 
19 
20 
21 COPYRIGHT (C) 1981 BY 
22 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS 
54 
55 THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE 
56 USED AND COPIED ONLY IN ACCORDANCE WITH THE TERMS OF 
57 SUCH LICENSE AND WITH THE INCLUSION OF THE ABOVE 
58 COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES 
59 THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
30 TO ANY OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE 
31 SOFTWARE IS HEREBY TRANSFERRED. 
33 THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE 
3 WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A 
35 COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 
37 , DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR 
33 RELIABILITY OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT 
39 SUPPLIED BY DIGITAL. 
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1. ABSTRACT 


THIS DIAGNOSTIC HAS BEEN DESIGNED TO EXERCISE UP TO 20 
(DECIMAL) VTV. . LSI BUS, VIDEO DISPLAY CONTROLLERS IN 
SE PROGRAM HAS DE TES 


QUENCE. T 
OPTIONAL TESTS. THE PROGRAM ALSO 
WITHOUT 


PARAMETERS HA SE 
BEING TESTED, THE OPERATOR MUST ENSURE THAT ALL THE 
DEVICES mE Se re INA 

Wee. F Me bevice ADDRESSES RANGE THRU 
174050417 on miso Rie 13 AND ALL ARE SET UP 
THE OPERA INE OFe ae ON ACHLITY FOR HURRYING UP THE TESTS 
BY TYPING SPACE ON THE CONSOLE TERMINAL. THIS WILL 

ABORT AND PROGRAM CONTROLLED WAITS, AND PROCEED ED TO THE 


LED 
NEXT SECTION OF THE TEST. THIS FEATURE SHOULD 
USED IN TEST 1. 


. REQUIREMENTS 

2.1 EQUIPMENT 

A. PDP-11 COMPUTER WITH A Q-BUS ADAPTOR, OR 
LSI-11 4 te 

B. CONSOLE TELETYPE 
C. UP TO 20 VTV30-K COLOUR DISPLAY CONTROLLERS 
D. DIAGNOSTIC TAPE AND LISTINGS 

2.2 STORAGE 


THIS PROGRAM REQUIRES A MINIMUM OF 8K WORDS OF MEMORY. 


3. LOADING PROCEDURE 


THE PROGRAM IS LOADED USING THE ABSOLUTE BINARY LOADER, 
OR USING THE NORMAL XXDP LOAD PROCEDURE AND IS IN 
ABSOLUTE BINARY FORMAT. 


4. STARTING PROCEDURE 
LOAD AND GO FEATURE WHICH wr alana 


THE PROGRAM HAS A 
CALLY STARTS THE ‘PROGRAM Al ADDRESS 1000 UPON 
SUCCESSFUL LOAD. 


SEQ 0002 
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5. RESTARTING PROCEDURE 
THE PROGRAM HAS A RESTART ADDRESS AT 1200 WHICH ALLOWS 
THE PROGRAM TO BE RESTARTED WITHOUT HAVING TO pr Mie 
THE BUS sy tye ae IF_IT IS NECESSARY TO RESTART THE 
PROGRAM WITH NEW BUS ADDRESSES, THE ADDRESS 1000. 
SHOULD BE USED AS THE RESTART. ‘ADDRESS. 


| 
| 
| 
| 


6. PROGRAM AND OPERATOR ACTION 


THE FOLLOWING OPERATOR REQUESTS ARE MADE BY THE PROGRAM 
PRIOR TO THE COMMENCEMENT OF THE ACTUAL TESTS:~- 


M7362?/M737?.. 

(THE OPERATOR MUST TYPE THE LAST DIGIT OF THE 
MODULE NUMBER-- 8,9,0,1 OR 2 == TO SELECT THE 
DEVICE UNDER TEST 


(IF A_ PROGRAMMABLE CHARACTER SET VERSION IS SELECTED, 
THE OPERATOR IS THEN ASKED....) 


T.V.-ENCODED?(Y OR N).. 


(..WHICH IS USED TO SELECT THE CHARACTER SETS LOADED 
INTO THE CHARACTER STORE.) 


DECIMAL NUMBER OF UNITS (1).. 
FIRST BUS ADDRESS = 


TRAP+10, THE CAN ON SS. IF 
THE FAULT IS NOT CORRECTED, THEN WHEN THE TESTS ARE 
RUN ON THAT DEVICE, THE PROGRAM WILL CRASH.) 


THE OPERATOR SHOULD REPLY TO REQUESTS ABOVE, BY INPUT- 
TING THE CORRECT CATA. 


SELECT DESIRED SWITCH REGISTER SETTINGS, TYPE CNTRL-C TO 
CONTINUE OR SWR = 0 


BRTSESBIRAKAYSSVSVRARANVSSHVSAHRBNVASSRLKGKALLSSRLKG 








————-___ -- ——-- 
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145 
| 146 IN REPLY TO THE REQUEST ABOVE THE OPERATOR SHOULD SELECT 
14 DESIRED SWITCH REGISTER OPTIONS AS SET OUT UNDER SWITCH 
| 148 OPTIONS BELOW. 
16 
| 131 7. SWITCH REGISTER OPTIONS 
13 THIS PROGRAM IS DESIGNED TO RUN EQUALLY EASILY ON PDP-11 
154 PROCESSORS WITH, OR WITHOUT, A HARDWARE SWITCH REGISTER. 
155 ON STARTING, A TEST IS DONE TO SEE IF A HARDWARE SWITCH 
156 REGISTER IS PRESENT. IF IT IS PRESENT, IT MAY BE USED 
157 IN THE NORMAL MANNER, 
139 THE SWITCH REGISTER SETTINGS ARE:- 
161 SWR15=1 INHIBIT ERROR HALT 
162 SWR16=1 INHIBIT ERROR PRINT-OUT 
163 SWR13=1 FAST ITERATION 
164 SWR12=1 : 
165 SWR11=1 :SCOPE LOOPS, SEE BELOW 
166 SWR10=1 :FOR A DESCRIPTION, AND 
167 S 1 IX s 
168 SWROB=1 OF THEIR 
169 SWRO7=1 NON INTERVENTION 
170 SWROG=1 PRE~SELECTED TEST INDICATOR 
171 SWROS=1 ; 
172 S 1 : 
173 SWRO3=1 :TEST NOS. 
174 SWRO2=1 : 
175 SWROT=1 
1% SWROO=1 
178 THE SETTING OF BITS 7, 8. 9. 10, AND 12 IN THE 
179 SWITCH REGISTER ARE USED TO secect "hae tRAs RAP OPTIONS 
180 PRESENT IN THE PROGRAM. THE SELECTION 1s MADE IN THE 
181 FOLLOWING MANNER: 
183 BIT(S) SET TRAP FUNCTION SELECTED 
185 7 TRAP+2 
186 8 TRAP+4 
187 9 TRAP+10 
188 10 TRAP+ 
189 9 AND 10 TRAP+ 
190 11 TRAP+40 
191 9 AND 11 TRAP+50 
192 10 AND 11 T 
193 9, 10 AND 11 —s TRAP+70 
194 12 USES THE SWITCH REGISTER SETTING THAT 
195 WAS IN FORCE WHEN THE LAST TRAP 
1% INSTRUCTION WAS EXECUTED. 
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FA Me wt yy whtr: REGISTER IS NOT PRESENT, THE 
IGNS A the oo ION IN MEMORY AS A Mpa 
SWITCH rpecisTen OPTI REMAINING AS ABOVE. THIS 
MEANS _Ti MODIFICATIONS TO THE SWITCH REGISTER ‘MAY 
HE YPE VIA A MON 


BE MADE U SING. T pean 
ROUTINE. he MONI TOR CALLED BY TYPING CTRL-G AT THE 
RE BY PR THE CURRENT 


CHARACTER (>). THE OPERATOR SHOULD THEN TYPE IN 
AN OCTAL NUMBER 


D WITH THE NEW VALUE AND 
CUTION CONTINUES. IF A ere IS Teo 


WHICH INCLUDES THE PRE SSELECTED TEST THE 
TEST INDICATED BY SuR WILL BE seLecteD rep aT- 
ELY. | wits DOES NOT APPLY WHEN DEFAULTING ON AN EXISTING 


THE SWR MONITOR IS ALSO CALLED AUTOMATICALLY IF AN ERROR 
IS DETECTED AND SWR BIT 15 IS NOT SET. OCTAL EQUIVA- 
LENTS FOR THE SWITCHES ARE AS FOLLOWS: 


SWR15 = 100000 
SWR14 = 40000 
SWR13 = 20000 
SWRI2 = 10000 
SWR11 = 4000 
SWR10 = 2000 
SWROD = 1000 
SWROS = 400 
SWRO7? = 200 
SWRO6 = 100 
SWROS = 40 
SWRO4 = 20 
SWRO3S = 10 
SWRO2 = 4 
SWRO1 = 2 
SWROO = 1 


TO SET A COMBINATION OF THESE SWITCHES, SIMPLY ADD 
TOGETHER THE et Aes Dy OCTAL NUMBERS AND ENTER THE 
re meh) RESPONSE TO ‘‘SWR= X>"'. (LEADING ZEROS MAY BE 


FOR WORST CASE TESTING, ALL optay: SHOULD BE ZERO. IT 

IS POSSIBLE, WITH THESE SWITCH REGISTER OPTIONS, T 

EXECUTE ONLY A A a ag WITH THE FACILITY TO 

LOOP ON THAT TEST OR TO START THE PROGRAM PASS OR FINISH 
PROGRAM PASS AT ANY BARTI CULAR TEST. 
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8. ERROR REPORTS 
THE FORMAT OF THE ERROR REPORTS IS AS FOLLOWS:- 


E# AABB AT PC:CCCC 

GOOD: DDDD BAD: EEEE 

STATUS: FFFF ADDRES: GGGG 

DATA: KKKK CALLED FROM: HHHH 

ERROR COUNT = JJJJ 
WHERE 

AA IS THE TEST NUMBER 

BB IST NUMBE 

cccc IS T SS _ WHERE THE ERROR REPORT OCCURS 

DDDD IS T TA CTED 

EEEE IS THE DATA RECEIVED 

FFFF GGGG AND KKKK ARE CONTENTS OF REGISTERS. 

HHHH IS THE ADDRESS IN THE MAINLINE CODE WHERE THE 
SUBROUTINE, WHERE THE ERROR REPORT IS 
GENERATED, IS CALLED 


FROM. 
JJJJ IS THE NUMBER OF ERRORS REPORTED TO DATE IN 
THIS SECTION. 
9. ONLINE MODIFICATIONS 


AVAILABLE TO THE USER IS A ROUTINE TO MODIFY PROGRAM 
LOCATIONS. IT IS ENTERED BY hoy CNTRL-O DURING THE 
NG ON RY, A_PROMP IS _MADE 


A PROMP MADE FOR THE NEW CONT) 

VALUE IS GIVEN, THE EXISTING VALUE WILL BE LOADED. 
HAVING DEALT WITH THAT ADDRESS, THE ROUTINE WILL THEN 
EXAMINE THE TERMINATING CHARACTER TO DETERMINE THE NEXT 
OPERATION TO PERFORM. 


TYPING <ESC> WILL COMPLETE THE MODIFICATIONS BEING 
<CR> a4 CAUSE A_PROMPT FOR THE NEXT ADDRESS 


O BE MODIF 
<LF> WILL TAKE THE NEXT AD - TO BE MODIFIED 
AS THE CURRENT ADDRESS+ 
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10. MISCELLANEOUS 


IF THE OPERATOR WISHES TO —_ TEST aay MANUAL 
INTERVENTION, THEN HE MUS 13,14 AND 
THIS WILL RUN THE TESTS UI THOUT DISPLAYING AND TEST OR 
ERROR MESSAGES. IF, AT THE END THE RUN, A SUMMAR 
ERROR REPORT IS REQUIRED, THEN TEST 10 SHOULD BE 
SELECTED AND RUN. 


TO RUN THE TESTS WITH ERROR REPORTING BUT WITH NO ERROR 
HALT, ONLY SWR BITS 15 AND 7 NEED TO BE S 


ONCE ALL THE ies tT y tae TESTED, THE As ee WILL 
ETE T WAS CALLED 


ISSUE A CALL T 
NOT WISH THIS RETURN 1. OCCUR THEN HE MUST R RUN 
WITH SWR BIT 7 SET OR ENSURE THAT LOCATIONS rey ARE 


IF THE FIELD VIDEO ——? HAS TOO MUCH nets ie IT FORA 
STATISIZED READING OF TWO ERROR REPORTS MAY BE 
GENERATED. ERROR tor AN INITIAL SAMPLY COULD D NOT BE 
TAKEN. ERROR 67: THE SIGNAL DOES NOT CHANGE STATE. 


11. PROGRAM DESCRIPTION 
TEST 0 
THIS TEST CHECKS THAT ALL THE ta BITS IN THE CSR 
CAN BE SET AND CLEARED, AND THAT THE DATA BUFFER IS 
A SLIDING ONES arene 
PATTERN WAS we THE DBUFF IS ALSO CHECKED FOR ZERO. 
HAVING CHECKED A SLIDING ONES PATTERN, THE PROCESS IS 
THEN REPEATED FOR SLIDING ZEROS. 
ERROR 1 BIT NOT SET IN CSR. GOOD = agg he BAD = 
RECEIVED, ADDRESS = CSR ADDRESS, 
PATTERN NUMBER. TRAP+10 TO Looe, 
ERROR 2 DBUFF AFFECTED BY SETTING CSR. STATUS = 


RECEIVED DATA, ADDRESS = DBUFF ADDRESS, DATA 
= PATTERN NUMBER. TRAP+20 TO LOOP. 


SEQ 0007 


| CWTCA 





QRESSSLSFESSSSSSSRS SEES ISS 


: 


- SRC 


VTV30K DIAGNOSTIC 


08-JAN-81 


MACY11 30A(1052) 
10:36 


I 
08-JAN-81 10:58 PAGE 8 


ERROR 3 BIT NOT CLEAR IN CSR. GOOD = EXPECTED, BAD 
= RECEIVED ADDRESS 5 S = SR ADD ADDRESS, DATA = 
PATTERN NUMBER. 


ERROR 4 DBUFF AFFECTED BY CLEARING CSR. STATUS = 
RECEIVED DATA, ADDRESS = DBUFF ADDRESS, DATA 
TTERN NUMBER. TRAP+40 TO LOOP. 


TEST 1 


THIS TEST CHECKS THAT THE FIELD vipEO SI ee 
AND THAT THE PERIOD IS ROUGHLY 1/50TH OR 1/60TH OF A 
esas DEPENDING UPON WHAT THE PF ic> vies SELECTED, 


AND A LOW-HI-LOW-HI T 
D PREVIOUSLY, IF THE SIGNAL iS TOO 
RROR 67 MA 


DOES NOT WORK, ERROR 70 
IS FLAGGED. IF THE TEST DOES NOT NCOPPLETE IN A REASONA- 
BLE AMOUNT OF TIME, IT CAN BE ASSUMED THAT THE SIGNAL 
HAS NOT TOGGLED. fO GET OUT OF THIS, Te OPERATOR MUST 
TYPE SPACE TO TERMINATE THIS SECTION. 


HAVING VERIFIED THAT THE SIGNAL CAN TOGGLE, THE PROGRAM 
THEN USES THIS INFORMATION TO CREATE A WAIT OF 
1S WAIT LOOP 
ERVAL, T 
CONSOLE TELETYPE BELL IS RUNG. THIS INFORMATION CAN BE 
USED TO JUDGE WHE T REASONABL 


ARE MANY TRUCTIONS EXECUTED BETWEEN 
SAMPLING POINTS, THIS TIMING INFORMATION IS NOT ACCURATE 
AND MUST THEREFORE BE JUDGED ACCORDINGLY. SETTING 
TRAP+20 WILL LOOP ON RINGING THE BELL. 


ERROR 1 oe SIGNAL OR ABORTED TEST. TRAP+10 TO 


TEST 2 


THIS TEST CHECKS THAT ALL THE COLOURS CAN BE DISPLAYED. 
BY SELECTING CHARACTER CODE 0, AND THE SAME FOREGROUND 
AND BACKGROUND COLOURS. A FULL SCREEN OF THAT COLOUR IS 
DISPLAYED. THE SEQUENCE OF OPERATIONS IS AS FOLLOWS:- 


F/B WHITE NO VIDEO 
F/B BLACK VIDEO ON 
F/B RED VIDEO ON 
F/B GREEN VIDEO ON 
F/B YELLOW VIDEO ON 

UE DEO ON 
F/& MAGENTA VIDEO ON 
F/B CYAN VIDEO ON 
F/B WHITE VIDEO ON 








SEQ 0008 
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405 | 
406 SETTING TRAP+10 WILL LOOP ON THE CURRENT COLOUR 
407 SELECTION. 

408 

409 

ret TEST 3 

41 THIS TEST CHECKS OUT THE X AND Y ADDRESSING OF THE DEVICE. 
41 THE SCREEN IS SET TO BLUE AND TWO DIA 

414 DISPLAYED. ONE IS MADE A0f, MAGENTA BLOCKS. “STARTING AT 
415 THE TOP RIGHT CORNER, AND THE OTHER IS IN WHITE, 

416 STARTING AT THE BOTTOM LEFT. 

418 

419 TEST 4 

421 THIS TEST CHECKS OUT THE FOREGROUND/BACKGROUND COLOUR 
422 SELECTION WITH BLINK AND FLASH. — CHARACTER CODE COERO IS 
423 SELECTED, SINCE IT IS HALF FOREGROUND AND HALF 

424 BACKGROUND, DIVIDED VERTICALLY THE WHOLE DISPLAY IS 
425 LOADED WITH THE COLOUR, BLINK AND FLASH INFORMATION IN 
426 THE FOLLOWING ORDER: 

428 BLACK ON WHITE 

429 BLINK WHITE ON BLACK 

430 FLASH WHITE ON BLACK 

431 AND 

t33 

ri 33 NOTE: THE FLASH WILL NORMALLY APPEAR TO ‘HOP’ SIDEWAYS. 
436 SETTING TRAP+10 WILL LOOP ON THE CURRENT COLOUR/BLINK/- 
437 FLASH SELECTION. 

438 

439 

440 TEST 5 

442 THIS TEST CHECKS OUT THE CHARACTER STORE ADDRESSING OF 
443 THE DEVICE. THE DISPLAY IS SET TO BLACK, THEN THE 

bbl ENTIRE CHARACTER SET IS DISPLAYED WITH RED ON BLUE. 
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ROM BASED CHARACTER SET 


FOR THE ROM Ay tg yA SET, THE mY =, 18 TU SET ie 


r Y AS RED ON BLUE IN FROM Y 

THRU 40. THE CHARACTER SET IS DISPLAYED 
CHARACTER. § STORE ADDRESSES INCREMENT ING HORIZONTALLY 
— TRAP+10 WILL LOOP ON DISPLAYING THE CHARACTER 


RAM BASED CHARACTER SET 


FOR THE RAM BAs D CHARACTER SET, THE DISPLAY AREA STARTS 
ATX =7, Y= HE CHARACTER CODES SARE DISPLAYED 

VERTICALLY IN tO FIVE CHARACTERS L -E. COLUMN 
1 RUNS FROM CODE 0 TO CODE 4, COLUPY 2 FROM 0 9, ETC. 


THE CHARACTER SET IS FIRST SET TO ZERO THEN A VERTICAL 
L INE IS MOVED THRU THE ENTIRE CHARACTER SET, FIVE 

HARACTERS AT A TIME. THIS WILL APPEAR re " VERTICAL 
CINE MOVING ACROSS THE DISPLAY AREA. 


SETTING TRAP+20 WILL LOOP ON THE CURRENT CHARACTER CODE. 
IF TRAP+70 IS SET, THE OPERATOR CAN SELECT WHICH 
CHARACTER CODE HE WANTS TO TEST. HAVING SELECTED THE 
CODE, THE PROGRAM THEN ALLOWS THE OPERATOR TO CHANGE 
SWITCH REGISTER Serr ineee SUCH _AS SETTING gage sD ONCE 
TRAP+70 HAS BEEN SE PROGRAM 
WILL CONTINUE TESTING FROM ROM THE CHARACTER CODE TO 
OPERATOR SELECTED. 

TEST 6 

THIS TEST CHECKS THE DATA INTEGRITY OF THE CHARACTER 
STORE ADDRESSES, HELD IN SCTURE STORE. THE 
CHARACTER STORE ie me HELD IN TWO BY a RAMS PER 


PICTURE LOCATION HIGH BIT OF THE T 
UNUSED. ve GMACTER STORE ADDRESS PATTERN IS USED. 


re sae T RAM IS 
ADDRESSES USED ARE 5 10 AND 40. ALTHOUGH 
ER ADDRESS 40 HOES NOT SET BITS IN EACH RAM, IT 
THERE A. 


Te 
TS WING THE EF EFFECT TO THE 

DIAGONAL Lines MOVING RI Fr. eiVi LEFT. ore COLOURS USED 

Ane wHiTe ag SETTING. TRabes WILL LOOP ON THE 


DIAMOND 
DOUBLE QUOTES 


CAP 
HEAVY PLUS (+) SIGN 
(SPACE) 


SEQ 0010 
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503 
a. TEST 7 
506 THIS IS AN EXERCISER TEST THAT DISPLAYS ALL CHARACTERS 
507 IN EVERY PICTURE LOCATION. CHARACTER CODES ARE 
508 DISPLAYED IN DI TOP RIGHT TO BOTTOM LEFT. 
509 THE DIAGONAL LINE WILL BE MOVED FROM BOTTOM RIGHT TO TOP 
510 LEFT. THE COLOURS ARE DISPLAYED IN VERTICAL BANDS, THE 
511 COLOURS BEING RED, GREEN, THEN BLUE, AND THE 
512 BACKGROUND COLOURS BEING RED, GREEN, YELLOW, BLUE, 
515 MAGENTA, CYAN AND WHITE. 
$15 AS THE TEST PROGRESSES. 17 WILL APPEAR THAT THE CHARAC- 
516 TER CODES ARE MOVING UP VERTICAL LINES, BUT OFFSET BY 
517 ONE PICTURE ROW, THUS GIVING THE EFFECT OF A MOVING 
518 DIAGONAL LINE. 
519 
520 
521 TEST 10 
523 THIS OPTIONALLY SELECTABLE TEST IS USED TO PRINT OUT THE 
524 ACCUMULATED ERRORS TO DATE. IT CAN BE USED AFTER 
525 RUNNING SOAK TESTING TO GIVE AN INDICATION OF THE NUMBER 
526 OF ERRORS THAT HAVE OCCURED. 
528 THIS TEST PRINTS A MESSAGE “ERROR COUNT =‘. FOLLOWED BY 
529 THE CURRENT ERROR COUNT: THE PROGRAM THEN CLEARS THE 
530 ERROR COUNT. 
531 
532 
535 TEST 11 
535 THIS OPTIONALLY SELECTED TEST IS USED TO CHECK THE RESPONSE 
536. OF THE VIDEO ADAPTERS. THERE ARE 7 BLOCKS OF 4 ROWS EACH. 
537 EACH BLOCK IS A DIFFERENT COLOUR. IN THE SEQUENCE. . 
539 GREEN 
540 YELLOW 
541 BLUE 
542 MAGENTA 
543 CYAN 
544 
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APPENDIX A 


PDP-11 DIAGNOSTIC LOOPING FACILITIES VIA 
SWITCH REGISTER OPTIONS 


THE INTENTION OF THIS APPENDIX IS TO EXPLAIN, IN 
GENE HE SCOPE FACILITIES WITHIN PROGRAM CODING. 

T FIRST EXAMINE THE CODING ABOUT THE AREA HE 
WISHES TO USE SCOPING FACILITIES, TO ASCERTAIN THAT THE 
PARTICULAR FACILITY HE REQUIRES IS, IN FACT, AVAILABLE. 


PROGRAM LOOPING CONTROL CAN BE SELECTED BY USING SWR 12 

~ 07. THE PROGRAM HANDLES THIS BY USE OF THE TRAPSV 
ROUTINE, WHICH IS ENTERED USING THE TRAP INSTRUCTION. 
BASICALLY, THE ROUTINE CHECKS EQUALITY ee BITS 05 - 
00 OF THE TRAP INSTRUCTION AND SwR 12 


THERE ARE THREE DISTINCT FUNCTIONS CONTROLLED BY THE 
TRAP ROUTINE :- 


A) RUN - (TRAP + 2 INSTRUCTION AND SWR 07 SET) 
USUALLY USED TO INHIBIT TEST NUMBER PRINTOUT; USEFUL 
IN THE CASE OF NON-INTERVENTION TESTS. WHEN SWR 07 
a SET, ALL TEST NUMBER MESSAGES ARE SUPPRESSED. 
NOTE: IT DOES NOT SUPPRESS ERROR PRINTOUTS. 


B) oor A SUB-TEST - (TRAP + 4 INSTRUCTION AND Sur 
THIS IS eae yaa = ti TO ALLOW THE OPERATOR, BY 
SETTING SuR 08, CONTINUOUSLY LOOP ON ONE LOGICAL 

TEST OR GROUP OF "est Ss. 
©) gh, A am 77 Saeed ~ (TRAP + 10 = 70 INSTRUCTIONS 


AND 
THIS ALLOWS THE OPERATOR TO SELECT SEVEN LEVELS OF 
LOOPING FACILITY WITHIN A SELECTION OR TEST. 


IT IS USED TYPICALLY WITHIN A TEST WHERE ONE SLB- 
TEST SETS A FLAG AND THE NEXT ONE IT. BY 
USING SCOPE LEVEL 1 (SwR 09) - + 10), HE COULD 
LOOP ON THE FIRST SUB-TEST, SCOPE LEVEL 2 (SWR10) - 
TRAP + 20), HE COULD On T SUB-TEST OR 
SCOPE LEVEL 3 (SwR 10 = TRAP + LOOP 


AL APPEARS AS T 
OR NEXT WORD AFTER THE TRAP INSTRUCTION. 


SEQ 0012 
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601 
4 TO ALLOW THE SCOPE Level TO BE CHANGED WITHOUT STOP- 
60 PING | THE PROGRAM, E.G. TO CHANGE FROM LEVEL 1 TO 2, 
604 WHICH WOULD Anas ¢ CERTAINLY CAUSE LEVEL 3 OR 0 10 
605 BE SEEN POM MOMENTAR ty). AUP "PRESERVE SCOPE’ FACILITY IS 
606 PROVIDED WITH SWR WHEN THIS Is ECTED, THE 
607 PROGRAM NO LONGER INSPECTS SUR 11 - USES THE 
608 SETTING MEMORISED FROM BEFORE SWR 12 WAS SELECTED. 
609 THE SCOPE LEVEL L MAY NOW BE CHANGED WITH NO EFFECT 
610 UNTIL SWR 12 IS SET TO 0, WHEN THE NEW SCOPE SETTING 
61 APPLIES. 
gig N.B. SETTING SWR 12 SHOULD ONLY BE USED TO PRESERVE 
614 AS EXISTING SCOPE LEVEL, AS PREVIOUSLY SET ON THE 
615 SWITCH REGISTER. 
617 WHICH SCOPE LEVEL TO SELECT MAY BE DETERMINED THE 
618 LISTING; LEVELS 1 THROUGH 7 ARE CALLED BY TRAP + 10 
619 (SWR 095 THROUGH TRAP + 70 (SWR 09, 10 AND 11). 
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1 
623 EXAMPLE OF SCOPE LOOP FACILITIES WITHIN DIAGNOSTIC 
3 
627 TEST10: MOV #40, COUNT : ITERATION COUNT. 
628 T101: BIS #1, STATUS *SET GO BIT. 
629 BIT #1. STATUS tI1S GO BIT SET? 
630 BNE TIOSCP sYES, BRANCH. 
631 JSR C.E ZERROR! |! GO NOT SET. 
$33 TIOSCP: TRAP+10 ‘SCOPE TEST 10 IF LEVEL 1 SELECTED. 
634 T101 SRETURN LABEL FOR SCOPE. 
635 TEST11: BIC #1,STATUS [CLEAR GO BIT 
636 BIT #1. STATUS [60 BIT CLEAR ? 
637 BEQ T1iScP 760 BIT CLEAR BRANCH. 
638 JSR PC,E 3NO. GO D BIT FAILED TO CLEAR. 
640 TI1SCP: TRAP+30 SCOPE TEST in IF LEVEL 3 SELECTED. 
641 TEST11 URN FOR SCOPE. 
642 TRAP+ 3 SCOPE TESTS” 10 @ 11. 
643 T101 LABEL. 
644 TEST12: BIS #100, STATUS :N0 SCOPE SELECTED. CARRY ON. 
645 BIT #100. STATUS SIS DONE BIT SET 
646 (ETC. 
647 : 
648 ; 
649 : 
650 T12SCR: TRAP+10 :SCOPE INT. EN. SET, LEVEL 1. 
651 TEST 1 :R : 
652 TEST13: BIC #100, STATUS [CLEAR INT ENABLE BIT. 
653 BIT #100. STATUS [1S BIT CLEAR? 
654 ETC. 
655 . 
656 ‘ 
657 , 
658 T13SCP: TRAP+30 :SCOPE INT CLEAR LEVEL 3. 
659 TEST13 RE LABEL. 
660 : SCOPE INT. SET AND CLEAR. 
661 TEST1 “LE 
662 ‘SCOPE LOOP ON THIS SET OF TESTS. 
663 T101 RETURN 
664 DEC COUNT [D0 40 TIMES ANYWAY 
665 BGT T101 
666 TEST14: (ETC.) 
667 
668 
669 
670 
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SEQ 0015 


673 -ENDR 


] 


Oe — 
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CVVTCA. SRC —~JAN-81 10:36 SEQ 0016 
675 -TITLE VTV30K DIAGNOSTIC 
676 ~SBTTL GENERAL DEFINITIONS 
678 
p43 000001 R1=201 
681 00000, R2=20. 
akan ns=40 
R4=2%046 
684 5 R5=205 
= 

687 1 6 PSW=1 
688 177570 HSWR=177570 

90 
691 100000 6=100000 
69, 040000 =40000 
69 020000 = 
694 010000 $=10000 
695 
696 
697 177564 TPS=177564 
698 177566 TPB=177566 
699 177560 TKS=177560 
~~ 177562 TKB=177562 
702 
703 
704 
705 
708 
709 
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| CWTCA.SR 10:36 MACROS SEQ 0017 
714 .SBTTL MACROS 
a 
717 t SET PROCESSOR PRIORITY 
at : 
720 : .MACRO PSWSET SARG, 2LAB 
721 MOV SARG,-(SP ; SET UP NEW PSW AS SARG 
ree MOV Fae - (SP) + SET RETURN ADDRESS 
72 RTI + RTI TO SET PRIORITY 
724 LAB: NOP + RETURN ADDRESS 
72 .ENDM 


: READ PROCESSOR PRIORITY 


-MACRO PSWREA S$ARG 
EMT ; ISSUE EMT TO READ PSW 
on F SAVPW, SARG ; READ PSW IN SARG 


SoRAvasyIaS 


$$ 


———— TTT | 
i 


ors RERLESS 


BIIIIAAVaRAVAIIIIFIVAIIS 


—— 


o 


8 88 sssssssee 
RESSS XX BESR 


gag 
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007302 
007306 
007310 
014734 
013546 


007436 
007440 


007436 
007440 


006126 


INI TIALISATION 
-SBTTL INITIALISATION 
-ASECT 


START: 


REACT: 
XXDPGO: 


RSTART: 


KXDP2: 


START1: 


“=h2 


START2: MOV 


@4START 


#..SP 
#340 
WSWRSET.4 


#340,6 
#HSWR, SWR 
asSuR 


SSWR 
PC,SILLSI 
PC,VE 
DEVFLG 


Vv 
PC, TYPOUT 


PC, SETDEV 
PC, SELBUS 
RSTART 


XXDP2 

TART, SP 
#340 
DEVFLG 
CSRO,DEVCSR 
peur 6, DEVBUF 
PC, TYPOUT 
PC MONIT 


SY pallet 


STARS 


: XXDP HOOK INITIALIZATION. 
; JMP TO START AT 200 


:INITIALISE STACK POINTER 


TEST FOR HARDWARE SWR 

sTRAPS TO 4 IF _IT 

DOES NOT EXIST 

2 INITIALISE SOFTWARE Sw 

: CK WHICH PROCESSOR WE ARE ON 
sFILL 0-774 WITH HALT TRAPS 
; ASSUME 1 DEVICE 


DIAGNOSTIC 
; SET UP THE DEVICE 


THEN GOTO THE RESTART ADDRESS 
; EXTERNAL TEST-EQUIPMENT HOOK 


z INITIALISE STACK POINTER 


SELECT DESIRED CONSOLE SWITCHES 
:G0 TO SWR MONITOR 


; RESTORE THE STACK 
: CLEAR ERROR FLAG 


3 START WITH THE FIRST CSR 


z INITIALISE STACK POINTER 


CHECK FOR PRE-SELECTED TEST 


SEQ 0018 
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CVVTCA.SRC ~JAN-81 10:36 INITIALISATION 


796 


798 001356 000137 1450 
001 800139 80 


JMP TESTO 
1366 START3: JMP TABLE 


;TO TEST 0 
:TO LOOK-UP TABLE 


SEQ 0019 
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| CWTCA. SRC ™ 10:36 INITIALISATION SEQ 0020 
798 001 TABLE: MOV @SWR,RO :GET SELECTED TEST NO 
799 001 177700 BIC #177700, RO 

800 00137 CMP #11 sCHECK FOR VALID TEST NO 
801 001 BLT RSTART 
£08 001404 006300 ASL RO 
| 804 001406 000170 001412 JMP @TABLE1 (RO) ; JUMP TO PRE-SELECTED TEST 
806 
807 
808 
809 
810 001412 001450 TABLE1: TESTO 
811 001414 002040 TEST1 
Bie 001416 002174 TEST 
81 901420 002354 TEST 
814 001422 902616 TESTS 
815 001424 003110 TESTS 
816 001426 004234 TEST6 
817 001430 004660 TEST7 
818 001432 005 TEST10 
819 001434 005 TEST11 
820 ; THE FOLLOWING TABLE HAS ONE ENTRY FOR EACH OF THE ABOVE 
821 F ZERO, IT DISABLES THE STALL FACILITY IN "WAITS" FOR 
aes ; thay TEST. 
824 001436 000 000 001 TABLE2: .BYTE 0,0.1.1,1.0.1,0,0.0 
001441 001 001 000 
001444 001 000 000 
001447 000 
825 EVEN 
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| VTV30K DIAGNOSTIC MACY11 30A(1052) O8-JAN-81 10:58 PAGE 20 
CWICA.SRC O8-JAN=81 10:36 TESTO SEQ 0021 | 

| 


827 -SBTTL TESTO 
828 : 


; BY 

; THAT BIT S N, BY S 

; CHECK ig | THE BITS CAN CLEAR. AT EACH ST AGE oF TION 
; THE DATA BS hat IS CHECKED TO SEE THAT THE SETTING/CLEARING 


REGS 
nn 
S 
fae 
= 
a> 
- 
To 
>o 
RS 
m 

ae 
n 
> 
a 
~ 
m 
2 


a : HAD NO EFF 

836 001450 005037 007454 TESTO: CLR TESTNO ; SET TEST NUMBER 

837 001454 1 TRAP+2 

838 901456 147 T0001 

839 001460 a3 011624 JSR PC .TESTR : PRINT TEST NUMBER 

840 001 004737 014 SR PC TYPOUT 

B41 0014 906560 TSOMSG 

Be 001472 O12, 900200 T0001: MOV #200,R4 ; SUGGEST AN ITERATION COUNT 
B43 001476 004737 01 JSR PC ,FASTSW : IS FAST ITERATION SET 
B44 001502 0104 7506 MOV R4_REPCNT + SET ACTUAL ITERATION COUNT 
845 001506 gig eat 007566 10002: MOV #16. DATA : GET C 

846 001514 01 703 900004 T0003: MOV #4 RS : SELECT SLIDING ONES 
847 001 004 01 JSR R : THE PATTERN 

848 001 954000 907562 BIC ~ GOOD : READ ONLY BITS 
849 001 01 74 7572 10004: MOV DEVCSR. ADDRES: 

850 001 1 4 MOV t SET DATA IN CSR 

851 001546 01 007564 MOV @ADDRE BAD ; 

85¢ 001554 062737 034000 007564 BIC #34000 ,BAD + MASK UNWANTED 

85 901562 007562 007564 CMP + ARE THEY THE SAME 

854 001570 001403 BEQ T > YES 

855 001572 004737 016666 PC, ERROR + NO REPORT AN ERROR 
856 001576 160001 14D+G6+A 

857 001600 104410 TOOOS: TRAP+10 : LOOP ON THIS DATA 

858 001602 0015 T0004 

RS9 1 01 007572 MOV ; SET DATA BUFFER ADDRESS 
860 001612 017737 005754 007570 @ADDRES, STATUS : THE DATA BUFFER SHOULD BE CLEAR 
861 001 005737 TST 5 : IS IT 

B62 001624 001403 : 

864 ; CHECK "LEVA LOAD CAR H! 

865 : A CAR L' 

866 : +3VA ON E46-1 IF BAD=0 

867 : RELEVANT BIT ON LEVB B8 (E25,E46) 

868 901626 004737 016666 JSR PC, ERROR 

869 001 0 2+A+S+D 

870 901634 1044 T0007: 

871 001 0015 T0004 ; LOOP ON COMPLETE 

ie 001640 005 007566 DEC DATA * ALL PATTERNS DONE 

85 001644 001323 BNE T0003 + NO 

875 + NOW DO SLIDING ZEROES 

877 001646 12757 007566 MOV #16. DATA : GET LOOP COUNT 

878 001654 01 T0009: MOV #5,R3 t SELECT SLIDING ZEROES 
879 001660 1 JSR R + GET THE PATTERN 

880 001664 34 007562 BIC ) GOOD + MASK READ ONLY BITS 
881 901672 13737 0074 7572 10010: MOV DEVCSR. ADDRES ; GET CURRENT 

882 001 13777 007 005664 MOV GOOD,@ADDRES §: SET DATA IN CSR 





AE 


& 5 


TRON ASSERT O SORTS SELES EON eB E REE 


5 ie 


016666 
7440 
0056) 4 
7570 
016666 


007566 


007506 


005412 
000100 


001326 


ees we hh saatehneeed 
C AN-81 10 


007364 
7564 
7564 


007572 
007570 


005450 





08-JAN-81 
ESTO 


MOV RES ,BAD 
a 
BEQ T Sates 
: ERROR- 
: REPLACE LEVB 88 E25 OR £46? 
PC, ERROR 


T0011: TRAP+30 


TRAP +4 
T 


J 
10:58 PAGE 20-1 . 


Sete ee 


READ REPLY 
MASK_UNWANTED 
5 4 THEY THE SAME 


NO REPORT AN ERROR 
LOOP ON THIS DATA 


SET DBUF ADDRESS 
iene BUFFER SHOULD BE CLEAR 


YES 


LOOP ON COMPLETE 
_ PATTERNS DONE 


LOOP ON TEST ? 
ITERATE TILL DONE 


; TIDY UP AFTER TEST. 
; ~ aan TEST ? 


; YES GO DO IT 


SEQ 0022 





V30K DIAGNOS 
CVWVTCA.SRC 

917 
918 
919 
920 
921 
92 
$54 002040 
993 Sos0e8 
" ae 
929 
930 002064 
3a! 002064 
338 
9% 
935 002072 
936 002076 
937 002100 
938 
939 
940 
941 
308 
944 002102 
945 002106 
946 002110 
947 002112 
948 002114 
949 002120 
950 
951 
952 
953 0021 33 
954 0021 
955 134 
956 1% 
957 
958 002146 
959 bos! 50 
960 152 
961 
35 002154 
964 002156 
965 002160 
966 002166 
967 002170 


MACY 
10:36 


000001 


011624 
014 


000100 


011644 


016666 


007506 


000005 
012040 


013166 
007566 


000100 
001326 


11 30A(1052) 


007454 


007506 


007566 


005314 


K 
O8-JAN-81 10:58 PAGE 21 
TESTI 
-SBTTL TEST 


HE BELL EVER 


TEST1: MOV #1, TESTNO 
TRAP+ 
T0101 
JSR PC, TESTR 
JSR PC, TYPOUT 
TS1MSG 
T0101: 
#100, REPCNT 
: TRY TO SYNC UP 
T0102: JSR PC, SYNCUP 
BR T0103 
T0104 
: ERROR- 
: CHECK "LEVB CLOCK H' (8 MHZ) 
: "LEVB CLOCK L° 
F *LEVB VAO2 H* (1 MHZ) 
: *LEVA VA0g L 
: "LEVB VA17 H 
T0103: JSR PC,.ERROR 


T0104: TRAPS10 
DEC REPCNT 
BNE T0102 
t NOW RING THAT BELL 


T0105: MOV #5.DATA 
T0106: JSR PC,WAITS 


PC BELL 
DEC DATA 
T0106 
RAP+ 
T0105 
T0101 
BIT #100, aSUR 
Q TESTO 


2 


; THIS TEST CHECKS THE FIELD VIDEO TIMING BY ATTEMPTING 
TO RING T Y SECOND F 
; IF THE BELL DOES NOT RING, TYPE CNTRL-X TO ABORT THE TEST 


; SET TEST NUMBER 


; PRINT TEST NUMBER 


; SET ITERATION COUNT 


* (1 MHZ) 
* (16.7 MILLISECS FOR 525, 20 FOR 625) 
; ERROR 


LOOP 


TO HERE 
REDUCE ITERATION 
KEEP GOING 


FINE BELLS 
WAIT ONE SECOND 


DING DONG !! 
KEEP GOING 
LOOP ? 


LOOP ON TEST 
PRESELECT TEST 
YES- GO DO IT 


SEQ 0023 


L 
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VTV30K DIAGNOSTIC 

CICA. SRC OBCUANEBT 10586 TEST2 SEQ 0024 
969 .SBTTL TEST2 
971 : THE TEST CHECKS THE PICTURE BY WRITING TO EVERY LOCATION, 
oe + USING THE SAME FOREGROUND AND BACKGROUND COLOUR. 
974 : THE SEQUENCE OF OPERATIONS IS: 
976 : F/B WHITE NO VIDEO 
977 : F/B BLACK VIDEO ON 
978 : F/B RED VIDE 
979 : F/B GREEN VI 
980 : F/B YELLOW VIDEO ON 
981 : F/B BLUE VI 
982 ; A O ON 
983 : F/B CYAN VIDEO ON 
984 : F/B WHITE VIDEO ON 
986 > CHARACTER STORE ERRORS ARE DELIBERATELY BYPASSED IN THIS TEST. 
m7 ; I THE TEST WORKS, COLOUR INFORMATION CAN BE USED IN "HE NEXT 
989 : ERRORS- 
990 > CHECK LOW-ORDER BITS O PICTURE STORE (LEVC) 
991 : OUTPUT LATCH ON LEVD, E23. 
992 : OUTPUT MUX ON LEVD, &1 
993 : STATICISERS E6 & E12, WITH STROBES "LEVB STROBE AH’, °-8 H° 
995 002174 012737 000002 007454 TEST2: MOV #2, TESTNO : SET TEST NUMBER 
996 002202 104402 TRAP+2 
997 002204 902220 70201 
998 002 004737 011624 JSR PC, TESTR : PRINT TEST NUMBER 
999 002212 004737 014734 JSR PC; TYPOUT 
1000 006411 TS2MSG 
1001 002 012737 000007 007464 10201: MOV #7 , FORGND : SET F/B TO WHITE 
1008 012737 000007 007466 MOV #7 .BAKGND 
1 007470 CLR BLINK : NO BLINK 
1004 002240 007472 CLR FLASH : FLASH 
1005 002244 007450 CLR VIDEON : OR VIDEO. 
1006 002250 005037 007550 CLR CHAR + USE CHARACTER ZERO 
1007 002254 004737 012410 JSR PC.LOADFS + LOAD THE DISPLAY 
1009 + NOW WAIT AROUND 
1010 ; 
1012 
1018 ; NOW LOAD THE REST OF THE PICTURES WITH VIDEO ON 
1015 002 005037 007464 : CLR FORGND : START WITH BLACK 
1016 002 005037 007466 CLR : ON BLACK 
1017 002270 012737 040000 007450 MOV #0000 VIDEON : BUT WITH VIDEO ON 
1018 002276 004737 012410 T0202: JSR PC, LOADFS + LOAD THE SCREEN 
1020 + NOW WAIT AROUND 
1 002302 004737 012040 ‘ JSR PC WAITS z WAIT FOR 2 SECONDS 
1023 002306 900002 
1024 002310 104410 TRAP+10 
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CWTCA. SRC C AN-81 10:36 ST2 SEQ 0025 
1025 002312 002276 T0202 : LOOP TO HERE 
1027 t NOW UPDATE THE COLOURS 
1.9 002314 005 4 007464 : INC FORGND : NEW FORGROUND 
1030 005 7 007466 INC BAK GND ; AND BACKGROUND 
1031 4 023727 007464 000007 CMP FORGND ,#7 3 ALL 
1032 003761 BLE T0202 3 NO 
1034 : COMPLETE 
1 044046 j ; LOOP ON TEST ? 
1037 903336 O03 1001 
1038 340 032 000100 005134 BIT #100, aSWR y PRESELECT TEST 
1039 002346 001402 BEQ TESTS ; 
1040 002350 000137 001326 JMP START2 : YES GO TO IT 
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-SBTTL TESTS 


THIS TEST CHECKS THE CURSOR ADDRESSING FEATURES OF THE VTV30K. 
THE PICTURE IS FIRST SET TO BLUE ON BLUE. 

ees oe te CHARACTERS ARE PRODUCED. THE FIRST IN 
MAGENTA RUNS FROM THE TOP RIGHT CORNER TO THE BOTTOM OF THE SCREEN. 
THE SECOND IN WHITE RUNS FROM THE BOTTOM LEFT CORNER TO THE TOP. 


IF a TEST WORKS THE CAR AND THE PICTURE ADDRESSING IS OK. 


BROKEN, MISSING OR DUPLICATED DIAGONALS ARE CAUSED BY FAULTS 
ASSOCIATED WITH THE PICTURE ELEMENT SELECTOR ON LEVC. 





RERRERSSIRIPASASEERESES 


ee ee ee ee eee ee ee ee 


354 012737 000003 007454 fEST3: MOV #3, TESTNO ; SET TEST NUMBER 
104402 TRAP+2 
002 T0301 
004 011624 JSR PC, TESTR ; PRINT TEST NUMBER 
9047 014 JSR PC; TYPOUT 
1 TS3MSG 
7470 T0301: CLR BLINK : NO BLINK 
7472 CLR FLASH : NO FLASH 
10 012 940000 007450 MOV #40000,VIDEON ; ENABLE VIDEO 
16 007550 CLR CHAR + SELECT CHARACTER ZERO 
gig 000004 007464 MOV #4, FORGND + SELECT BLUE 
066 9084 01 73? 000004 007466 MOV #4 .BAKGND + ON BLUE 
067 3% 004 012410 JSR PC. LOADFS * LOAD THE FULL SCREEN 
069 t NOW DO X ADDRESS TESTING 
071 002442 37 007476 T0303: CLR CARY : START AT TOP OF SCREEN.. 
ove 012 000057 007474 MOV #47. CARX + AT RIGHT. 
073 002454 O1¢737 000005 007464 MOV #5,,FORGND : SET CHARACTERS TO CYAN 
107% 01 007464 007466 MOV FORGND .BAKGND ; ...ALL OVER! 
1076 002470 004737 9125 2 T0302: JSR PC,LOELEM : LOAD ONE ELEMENT 
1077 002474 ra 007476 INC CARY : NEXT LINE DOWN... 
1078 902500 007474 DEC CARX + SHIFT LEFT ONCE. 
1079 023727 007476 000040 CMP CARY #32. : OVER T TOP? 
1080 12 1366 BNE T0302 : NO T BLOCK 
1081 14 10641 TRAP+10 : 1 on THIS BIT 
1082 1 70303 
1 007474 T0304: CLR CARX : Now START AT RIGHT 
1084 0025. 1 007500 007476 MOV YMAX, CARY : AT BOTTOM 
1085 1 7 007464 MOV #7 ,,FORGND : DISPLAY IN WHITE.. 
1086 1 464 007466 MOV FORGND,BAKGND =: ALL OVER. 
1088 9125 2 T0305: JSR PC, LOELEM : LOAD ONE EL 
1089 5 90 474 INC CARK + SHIFT RIGHT 
1090 7476 DEC CARY + SHIFT UP 
1091 100371 BPL T0305 + PAST TOP OF SCREEN? 
1098 002564 104h20 TRAP+20 
1093 002566 0025 T0304 : LOOP ON THIS 
10% ; NOW WAIT AROUND 
109% 002570 904737 012040 JSR PC,WAITS ; WAIT FOR 2 SECONDS 
1097 002574 000002 2 
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1098 TRAP+4 ; LOOP ON TEST 
1099 T0301 

1100 000100 004672 BIT #100, aSWR y PRESELECT TEST 
1101 age BEQ TESTS 

1108 $001 001326 JMP START2 : YES= GO DO IT 
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1105 .SBTTL TESTS 
1107 ; THIS TEST CHECKS OUT THE FOREGROUND BACKGROUND SELECTION, BY 
1108 3 DISPLAYING CHARACTER CODE ZERO IN ALL LOCATIONS. CHARACTER 
1109 : ZERO IS DEFINED AS BEING HALF FORE GROWN AND HAL BACKGROUND , 
1110 : IN A VERTICAL STRIPE (CHARACTER DATA 360). THE FOREGROUND 
1111 3 AND BACKGROUND COLOURS ARE THEN ALTERED AND THE WHOLE DISPLAY 
1118 3 IS REFRESHED. THE SEQUENCE BEING: BLACK ON WHITE, 
111 ; BLINK SET, THEN BLINK CLEAR BUT FLASH SET. FINALLY BLINK AND 
1114 : FLASH ARE SET TOGETHER. CAUSING A PICTURE THAT "HOPS SIDEWAYS 
1115 : WITH A BACKGROUND FLASHING. 
1117 > IF THIS TEST WORKS THE OUTPUT MUX (LEVB) IS FUNCTIONING. 
1118 + ERRORS- 
1119 : CHECK :LEVB F/B SELECT H’ 
1120 : FLASH B H’ IF BLINK OR FLASH DOES NOT WORK. 
1121 : LEVA SIGNALS ON E4... 
1122 : "LEVB FLASH A’ 
1123 : ' B' 
1124 : y INK A! 
1125 : "LEVD BLINK B' 
1126 ; "LEVD DATA’ 
1128 000004 007454 TEST4: MOV #4, TESTNO : SET TESTNUMBER 
1169 TRAP+2 
11 T0401 
1131 JSR PC, TESTR : PRINT TEST NUMBER 
1132 JSR PC; TYPOUT 
1133 TS4MSG 
1134 T0401: CLR CHAR : START WITH CHARACTER CODE 0 
1135 TST PROM > PROM CHARACTER SET ? 
113 BNE T0403 : YES 
1137 CLR R1 > BUT THERE ARE 8 LINES TO IT 
1138 T0402: MOV CHAR,RO > GET CHARACTER NUMBER 
1139 ASL RO 
1140 ASL RO : SET IT IN THE RIGHT PLACE 
1141 ASL RO 
114 BIS R1 : ADD IN LINE NUMBER 
114 BIS #1 RO > SAY ITS SELECT CHSR 
1144 MOV RO, @DEVESR : LOAD THE C 
1145 004530 MOV #360, aDEVBUF =; LOAD THE DATA PATTERN 
1146 INC R1 3 GET NEXT LINE 
1147 CMP R147 > ALL LINES DONE 
1148 BLE 0402 > NO YET 
1149 : 
1150 70403: 
1151 CLR F : NO FLASH 
115¢ CLR BLINK : NO BLINK 
115 007464 MOV #7. FORGND 3 START WITH BLACK FOREGROUND 
1154 90 T0406: MOV #0 BAKGND > AND IT COMPLEMENT BACKGROUND 
1155 7450 yA VIDEON ; SET VIDEO 
1136 JSR PC, LOADFS : FILL THE SCREEN 
1158 t WAIT AROUND 
1160 002756 004737 012040 JSR PC,WAITS ; WAIT FOR 2 SECONDS 








: 
- 
: 
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1161 762 00000 2 

116¢ 764 10441 TRAP+10 

1163 002766 002736 T0406 : LOOP ON THIS 
1165 t NOW UPDATE THE FOREGROUND COLOUR 
1167 + NOW CHANGE BLINK STATUS 
1169 770 012737 000100 007470 MOV #100, BLINK 
1170 776 7 912410 T0407: JSR PC, LOADFS : LOAD DISPLAY 
174 7 012040 gsr PC. WAITS t WAIT 2 SECS 
198 10 7 TRAP+20 
1174 1 6 T0407 : LOOP ON PICTURE 
1175 1 007470 CLR INK : RESET BLINK 
1176 12 000200 007472 MOV #200, FLASH + SET FLASH 
1177 012410 T0409: JSR PC, LOADFS + LOAD PICTURE 
1178 OB0000 012040 sR PC. WAITS : WAIT 2 SECS 
1180 1044 TRAP+30 
1181 T0409 ; LOOP ON PIC 
118 12 000100 007470 MOV #100, BLINK : NOW SET BLINK AND FLASH 
11 012410 T0410: JSR PC, LOADFS : FILL SCREEN 
1184 012040 JSR PC. WAITS t STALL FOR A WHILE! 
1185 2 : 2 SECS 
1186 4 TRAP+40 
1187 003066 003052 T0410 : LOOP ON PICTURE 
1188 003070 104404 TRAP+4 + LOOP ON TEST 
1189 003072 902642 T0401 : 
1190 003074 032 000100 004400 BIT #100, aSwR t PRESELECT TEST 
1191 003102 001402 BEQ TESTS 
1192 003104 000137 001326 JMP START2 : YES GO TO IT 
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CWICA. SRC ~JAN~81 10:36 TESTS 
1194 .SBTTL TESTS “ 
196 : THIS TEST CHECKS THE CHARACTER STORE FOR EITHER THE PROM 
197 : OR VE THE VTV3OK. FOR THE PROM VERSION THE 
198 : CHARACTER SET WILL BE DISPLAYED AS CYAN ON BLUE IN AN 
199 : AREA FROM Y=10 ,X=3 THRU Y=12, X=45. THE CHARACTER SET 
00 : Is. DISPLA AYED AS’ CHARACTER STORE ADDRESSES INCREMENTING 


; CHARACTE: - THE PICTURE IS LAYED OUT IN THE 

; SAME WAY. A VERTICAL LINE IS THEN MOVED THROUGH THE CHARACTER 
; STORE TO CHECK THE ACCESSABILITY OF THE MEMORY. 

; NEXT A LINE IS ROTATED DOWN THE SCREEN TO CHECK THE LOW-ORDER 


: BITS. 


SeLRaran 


; THIS IS THE FIRST REAL TEST OF THE CHARACTER STORE. IF IT 
; WORKS ALL CHARACTER STORE DATA AND ADDRESSING WORKS. 


— ot ot St SS SS Ss SS) SS YS YS SI SS Yt SS 





| 
210 ; ERRORS~ 
211 ; CHECK HIGH-ORDER PICTURE STORE BITS (LEVB) 
212 ; PICTURE STORE STATICISER (LEVD) 
213 CHARACTER STORE ICS (LEVD) 
214 ; C.S. WRITE DATA,C.S. WRITE ADDRESS 
215 ; VERTICALLY CORRUPTED PROM CHARS, OR FAULTS IN HORIZONTAL 
216 INES _IN RAM VERSIONS, IMPLY FAULTS IN THE CHARACTER STORE 
igi? LINE SELECTOR (LEVD) 
1219 003110 012737 000005 007454 TESTS: mov #5, TESTNO : SET TEST NUMBER 
1220 003116 104402 TRAP+2 
1221 003120 003134 T0501 
1666 003122 004737 gt 1Se6 JSR PC, TESTR 
1 0031 oth 014 JSR PC, TYPOUT 
1224 0031 0064 TSSMSG 
1225 0031 005737 007462 T0501: TST PROM :; IS_THIS A PROM CHARACTER 
ise 003140 001032 BNE T0502 : SET 
1228 ; 
4 ; RAM CHARACTER SET PRESENT 
1231 007550 TESTSA: CLR CHAR : START WITH CHARACTER CODE ZERO 
I 5$: CLR R1 ; THERE ARE 8 LINES PER CHAR 
1 007550 108: MOV CHAR ,RO 3 GET CHARACTER NUMBER 
lee ASL RO : SET IN RIGHT PLACE 
1235 ASL RO 
1237 Bis Rt ADD _IN LINE NUMBER 
is ee a 
1240 800000 004236 MOV 90, aDEVBUF ; LOAD ZEROES IN 
1241 INC R1 : UPDATE LINE NUMBER 
; 000007 oy Ol : 7) LINES DONE 
15e4 007550 INC CHAR : SELECT NEXT CHAR 
1245 007550 000177 CMP  pemectachd ; ALL DONE 
1246 BLE $ : 
1247 
1 
1 


hr 
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SEQ 0030 
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CWTCA. SRC Can-81 10 ESTS SEQ 0031 
1250 T0502: CLR FLASH : NO FLASH 
1251 CLR INK : NO BLINK 
1 3 7464 MOV »F ORGND : BLACK ON BLACK 
125 7466 MOV BAKGND 
1 CLR CHAR : CHARACTER CODE 0 
1255 007450 MOV #40000,VIDEON : WITH VIDEO ON 
1 JSR PC, LOADFS 
1 T0520: 
1258 7474 MOV #3, CARX : START AT X=3 
1259 7476 MOV #10. , CARY : Y=10. 
1 CLR CHAR * CHARACTER CODE 0 
1261 007464 MOV #6, FORGND * CYAN ON 
1 007466 MOV #4 .BAKGND ; BLUE 
1 CLR BLINK 
1264 CLR FLASH : NO FLASH OR BLINK 
1265 007450 MOV #40000,VIDEON =: VIDEO ON 
1266 T0518: JSR PC, LOELEM t LOAD DATA OUT 
1267 INC + GET NEW C 
1268 000056 CMP CARX #46. : END OF DISPLAY 
1269 BNE T0519 : NO 
1270 007474 MOV #3. ,CARX : YES START NEW LINE 
1271 INC CARY 
ere T0519: INC CHAR :SELECT NEXT CHARACTER 
12 000177 CMP CHAR. #177 > ALL DONE ? 
127% BLE T0518 > NO 
1276 > NOW INSERT LAST CHARACTER AS FILER... 
1278 005737 007462 TST PROM ; DIFFERENT FOR RAM... 
1279 001414 BEQ 2$ ; CONTINUE FOR RAM. . 
1280 012737 000040 007550 MOV #° ,CHAR + LOAD NEW CHARACTER 
1281 004737 012522 JSR PC, LOELEM : IN LAST SPACE AS SPACE. 
1982 : NOW WAIT AROUND 
1284 004737 012040 JSR PC,WAITS : WAIT A BIT 
1285 000005 5 : 5 SECONDS 
1286 104410 TRAP+10 
1287 9052 T0502 
1288 137 004214 JMP TOSXIT 
1290 12 000125 007550 23s: MOV #85. ,CHAR : FILL IN FINAL CHARACTER 
1291 012522 JSR PC, LOELEM 
1358 ; 012040 SR PC; WAITS : SHOW PRIME PICTURE AS CUE. 
1 ° 
1295 005005 S$: CLR RS : POINTS TO LINE POSITION 
1297 105737 177560 10s: TSTB—Ss:« TKS : ANY ABORT? 
1298 10001 BPL 1 ; NO.. 
1699 14206 JSR PC ,READ 
1 7 0 CMP ‘ : SPCAE-HURRYUP? 
1301 BEQ : YES... 
1302 7 000007 CMP #°G837 > BELL? 
130. 1 BNE t he. 
1304 013546 JSR PC MONIT 
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003632 012702 000003 
arias 000010 
05 ~~ 140000 
010077 003564 

777 002000 
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tart 032 
001034 

003662 010477 003552 

77 = 003544 

350 
351 7 1 
325 76 002000 
35 1022 
354 
Sen 12 000010 
35 4 010477 003520 
358 77 003512 
359 % 3 
360 1 
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003556 


003532 


ES 


12$: 


bos: 


JSR 
NOP 
JSR 
NOP 
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PC, SYNCUP 
PC,SYNCUP 
R5,R 

Hage 0 
#106000 ..R4 


W42.*10 
#177400,,R4 


Bete Se Fe Fe Be Be Be 


SEQ 0032 
DELAY 2 PERIODS 


GET LINE POSITION.. 
GET POS IN CHAR.. 


PUT LINE IN INITIAL POS. 
IF TV-ENCODED... 


SWITCH FOR CLEAN-UP TRAILER 
GET CURRENT CHAR.. 


GET LAST CHAR... 


SWAP LINES OVER.. 
OVER TOP? 


: ELSE CLEAR HIGH ORDER... 


; NOW WE HAVE 2 CHARACTERS TO LOAD. EACH CHANGE IN THE LINE 


; LINE IS/COULD BE SCROLLING OUT OF, AND THE ONE IT IS 


> INVOLVES LOADING 2 ADJACENT CHARACTERS.... THE ONE THE 


; SCROLLING INTO. 


578: 


<é5 
he toe 
4=oMn 


a8 2g22Eez8 2 


e2nz 
m 
5 > 


3 ROWS OF CHARACTERS. 
: BYTES/CHARACTER 


HAR STORE SEL.VIDEO-ON 
INHIBIT WRAP-ROUND 

LOAD DATUM 

FIRST CHARACTER DONE IN PAIR? 
WRAP-ROUND ? 

YES... : 

YES, GET NEXT DATUM 

LOAD DATUM 


DOUBLE-UP LINE 
SHIFT LINE TO POSN. 
RESTORE ORIGINAL DATUM.. 


H_ 3 
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JAN-81 TESTS 


CWTCA. SRC 10:36 SEQ 0033 
709 900530 ADD #43.*10,R0 ; UPDATE TO NEXT LINE.. 
2000 003472 BIT #2000 @DEVCSR : OVER TOP? 
44 001 BNE : YES...DONT WRAP AROUND! 
7 DEC R2 : ANY MORE... 
1 BNE 24$ : YES.. 
003752 005205 59$: INC RS : 
754 920 27 000530 CMP R5 #43. #10 + ALL DONE? 
760 001243 BNE 10$ : YES... 
003762 104470 50s: TRAP+70 : LOOP? 
003764 00 5$ 
003766 ireetd 012040 JSR PC .WAITS : WAIT A SECOND... 
375 003772 000001 1 
376 y...THEN PROCEED TO VERTICAL-LINE... 
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| VTV30K DIAGNOSTIC MACY11 30A(1052) O8-JAN-81 10:58 PAGE 26 
| CWTCA. SRC JAN-81 10:36 TESTS SEQ 0034 
1378 4% 005005 35$: CLR RS : POSITION MARKER FOR LINE. 
13 SBIR GFE coco Sot Blooo.nc «SRT 
1381 408: MOV R5,RO 
1 ASL RO : GET CHARACTER NUMBER 
1 CLRB  =- RO : ZERO COLOUR+BL INK 
1385 BIS #47,RO : WHITE ON BLUE 
1 MOV R5,aDEVCSR + GET PICTURE ADDRESS 
1387 MOV /a@dE + LOAD ELEMENT 
1 INC + NEXT PICTURE CELL! 
1389 DEC RG + ANY MORE PICTURE? 
1 BNE : ..YES.. 
1391 MOV #2000,R5 ; NOW CLEAR CHARACTER STRE 
1398 003370 MOV #100000, aDEVCSR 
139% 45s: CLR @DE VBUF : ZERO BYTE IN CHSR 
1395 903¢77 INC @DEVCSR 
1396 004056 005305 DEC R5 : ANY MORE? 
1397 004060 001372 BNE 45$ : YES.. 
1399 004062 177560 50s: TSTB =s:« TKS : ANY ABORT? 
1400 004066 100012 BPL 52$ : NO 
1401 004070 004 014206 JSR PC ,READ 
1402 004074 920027 000040 CMP RO.#' : ABORT? 
1403 004100 001440 BEQ 7 © oe Wiens 
1404 004102 020027 000007 CMP RO,#'G&37 + BELL? 
1405 004106 001 BNE 5 > NO.. 
1406 004110 004 013546 JSR PC MONIT + CALL MONITOR. 
1408 004114 011644 52s: JSR PC, SYNCUP : WAIT.. 
1409 004120 000240 NOP 
1410 004122 004737 011644 JSR PC, SYNCUP 
1411 0061 40 NOP 
1412 0041 10500 MOV R5,RO : GETCHARACTER.. 
1413 004132 005300 DEC RO. : GET LAST FOR CLEARING 
1414 006134 100406 BMI 5 
1415 0041 2700 140000 BIS #140000,R0 : VIDEO ON, CHSR SELECT. 
1416 0041 1 003270 MOV RO, @DEVCSR + GET ADDRESS.. 
1617 004146 77 003266 CLR @DE VBUF + ZERO CHARACTER BYTE. 
1419 004152 01 §3$: Mov R5 : GET CURRENT CHAR. 
1420 154 140000 BIS wis RO 
1421 160 01 905252 MOV g@DEVESR ; 
1 164 01 003246 MOV #377, aDEV@UF =—s-_ ;:—: LIGHT LINE. 
1423 004172 205 INC R + STEP TO NEXT LINE. 
1424 174 3e7 000400 CMP R5 #400 + NEXT LINE? 
1425 1 BNE 508 : YES, LOOP 
1427 004. 1044 70$: TRAP+20 
1428 004 903 4 35$ ; LOOP ON SUBTEST 
1429 737 012040 JSR PC WAITS 
1430 004212 000001 1 : WAIT FOR 1 SEC 
163 : 
143 + END OF TEST.. 
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VTV30k DIAGNOSTIC 
CWTCA. SRC =JAN-81 10:36 ESTS SEQ 0035 
14% 
1435 00421 104 TOSKIT: TRAP+4 : LOOP ON TEST? 
1436 00421 10301 
1437 004 000100 003254 BIT #100, aSWR : PRESELECTED TEST? 
1438 004 i BEQ TEST6 
1439 004 Boots 001326 JMP START2 
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| TEST6 





CWTCA. SRC =JAN-81 10:36 SEQ 0036 
1441 .SBTTL TEST6 
144 : THIS TEST DISPLAYS A ROTATING CHARACTER PATTERN IN ALL PICTURE 
late t LOCATIONS, WITH COLOUR WHITE ON BLACK. 
1446 > THIS CHECKS THE HIGH-ORDER PICTURE STORE BITS (THESE HOLD THE 
eA? + SELECTED CHARACTER NUMBER) 
1449 : ERRORS- 
1450 : HIGH ORDER PICTURE STORE BITS (LEVC) 
1451 : PICTURE STORE STATICISER (LEVD) 
1288 004234 012737 000006 007454 TEST6: MOV #6 . TESTNO : SET TEST NUMBER 
1454 42 1 TRAP+2 
1455 004. 004 T0601 
1456 004737 911624 JSR PC, TESTR : PRINT TESTNUMBER 
145 004737 014 SR PC; TYPOUT 
1458 004256 006441 TSOMSG 
1459 012737 000005 007506 10601: MOV #5,.REPCNT 
1460 005737 007462 TST PROM : IS THERE A PROM ON BOARD 
1461 004272 001037 T0604 + YES DON'T LOAD CHSR 
1468 : RAM CHARACTER SET NEEDS LOADING 
1465 904276 012700 4 MOV #PO2CHR RO : GET START OF DATA TO LOAD 
1466 004 5037 007550 CLR CHAR t START AT CHARACTER ZERO 
1467 0043046 T0602: CLR R1 : 8 LINES PER CHARACTER 
1468 0046306 013702 007550 T0603: MOV CHAR,R2 + GET CHAR CODE 
1469 004312 ASL R2 
1470 004314 ASL Re : SET IN RIGHT PLACE 
1471 00431 ASL R 
147 1 BIS R1 : ADD IN LINE NUMBER 
1473 004 100000 BIS #160000 ,R2 : SELECT CHSR 
1474 004 1 003104 MOV R2.@DEVCSR : LOAD CSR 
1675 11 nove (RO)+, + GET DATA 
1477 itty CLRB RS : ENSURE 8 BITS LOADED 
1478 30 SWAB RS 
1479 10 003072 MOV R3, @DEVBUF : LOAD DATA OUT 
1480 201 INC R1 : UPDATE LINE NUMBER 
1481 127 000007 CMP R1,47 > ALL LINES DONE 
1682 54 BLE T0603 : NO 
1 3 007550 INC CHAR t UPDATE CHAR COUNT 
1484 7 007550 000177 CMP CHAR. #177 + ALL DONE 
1485 3745 BLE T0602 + NOT YET 
1487 : NOW START PUTTING UP PICTURE 
1489 904 70604: 
1490 1 040000 007450 MOV #40000, VIDEON =; VIDEO ON 
1491 1 7466 MOV #0.BAKGND + BLACK BACKGROUND 
149¢ 1 7464 MOV #7 .FORGND + WHITE FOREGROUND 
149 14 4 CLR BLINK 
149% 74 CLR FLASH : NO BLINK OR FLASH 
1495 4 91 7266 MOV #CHXLST.RO + POINT TO START OF LIST 
149% 0044 10001 T0605: MOV ROR : GET PICTURE STARTER 
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SRC : TEST6 SEQ 0037 
904432 007476 CLR CARY ; START AT TOP LEFT 
T0606: MOV R1,R2 : GET LINE STARTER 
7676 CLR CARK : START OF LI 
7350 T0607: MOV (R2), CHAR + GET CHAR CODE 
20 1252 . JSR PC -LOELEM t DISPLAY THE CHARACTER 
ADD #2.R2 + GET NEXT POINTER 
1 cme (RO) #1 + END OF T ? 
7266 MOV #CHXLST R2 : YES RESET IT 
7474 1$: INC CARX t GET NEXT C 
7 7474 007446 CMP CARX , XMAX + END OF ROW ? 
BLE 10607 + NOT YET 
900002 ADD #2.R1 : GET NEW LINE STARTER 
90451 1 CMP (Ri) ,A=1 : END OF TABLE 
1 BNE 2$ 3; NO 
0045. 007266 MOV #CHXLST,R1 + YES RESET IT 
0045. 007476 2s: INC CARY + UPDATE ROW 
0045 007476 007500 CMP CARY, YMAX + END OF DISPLAY ? 
004536 BLE T0606 : NOT YET 
+ WAIT AROUND 
004540 004737 012040 JSR PC, WAITS : WAIT 2 SECONDS 
004544 90000¢ 2 
004546 005337 007506 DEC REPCNT : ALL DONE 
004552 001406 BEQ T0615 + YES 


UPDATE NEW PICTURE STARTER 


900002 ADD #2,RO ; NEW STARTER 
177 CMP (RO) #=1 > ALL DONE ? 
70605 : NO 
BR T0604 t YES RESET TABLE MIXTURE 
T0615: TRAP+ 
000100 002700 8! © #100, aSWR y PRESELECT TEST 
001326 * JMP START2 : YES GO DO IT 
007302 : DEVFLG : UPDATE UNIT COUNT 
007304 DEVFL6,DEVCNT : ALL UNITS DONE 
913062 ENDIT : YES, SIGNAL END OF PASS 
2s: DEVFLG.RO + GET CURRENT UNIT 


RO : AS A WORD OFFSET 
CSRO(RO) ,DEVCSR : GET NEW CSR ADDRESS 
BBUF O<ROS .DEVBUF AND DATA BUFFER 
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VTV30k DIAGNOSTIC MACY11 30A(1052) O8-JAN-81 10:58 PAGE 28 
CWTCA. SRC =JAN-81 10:36 TEST? SEQ 0038 
1348 .SBTTL TEST? 
1550 ; THIS TEST DISPLAYS A ROTATING CHARACTER PATTERN IN ALL PICTURE 
1351 > LOCATIONS. in ADDITION THE COLOUR, IS CHANGED FOR EACH COLUW. 
1395 : THIS IS AN EXERCISER ONLY, NOT PART OF THE DIAGNOSTIC ROUTINES 
1555 004660 000007 007454 TEST7: MOV #7, TESTNO : SET TEST NUMBER 
1556 TRAP+2 
1557 0046 T0701 
1358 011624 JSR PC, TESTR : PRINT TESTNUMBER 
155 014 JSR * TYPOUT 
1560 TS7MSG 
1561 004704 000200 007506 10701: MoV #200 ,REPCNT 
136 004712 007462 TsT PROM : IS THERE A PROM ON BOARD 
1563 004716 001 BNE T0704 : YES DON'T LOAD CHSR 
1365 > RAM CHARACTER SET NEEDS LOADING 
1567 0046 007624 MOV #P02CHR RO : GET START OF DATA TO LOAD 
1568 004 0075 CLR CHAR t START AT CHARACTER ZERO 
1569 006 T0708: CLR R1 t 8 LINES PER CHARACTER 
1570 006 007550 T0703: MOV CHAR,R2 + GET CHAR CODE 
1571 006 ASL R 
137 9047 ASL R : SET IN RIGHT PLACE 
1 7 ASL R 
1574 0047 BIS RI : ADD IN LINE NUMBER 
1575 904766 100000 BIS rl R2 > SELECT CHSR 
1576 002460 MOV R2 SR : LOAD CSR 
1577 move (RO) +, : GET DATA 
1238 oe 
15 004 CLRB : ENSURE 8 BITS LOADED 
1580 SWAB 
1581 004 002446 ,@DEVBUF : LOAD DATA OUT 
1382 201 INC R1 + UPDATE LINE NUMBER 
1 77 127 000007 R1,47 t ALL LINES DONE 
1584 BLE T0703 > NO 
1585 007550 INC CHAR : UPDATE CHAR COUNT 
1586 7 007550 000177 CMP CHAR.#177 > ALL DONE 
1387 4 45 BLE T0702 > NOT YET 
1589 PUTTING UP PICTURE 
1? 
1398 #40000, VIDEON =; ENABLE VIDEO 
1 #0,BASE1 > START AT CHARAACTER 0 
159% CARY : START AT FIRST ROW 
1595 BASE1 + SET THIS PICTURE START 
1596 BASE, + SET START FOR THIS 
1 CARX + START OF COLUMN 
1598 FLASH + NO F 
15 BL IN : NO BLINK 
1600 /BAKGND > RED ON 
166) PC LOECeR ; DISPLAY THE CHARACT 
1658 CHAR : SELECT NEXT ONE 
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TEST? 


007550 
007446 


007456 
007500 


007460 


000007 





T0715: 


$2 


a ES ta 


o~ 
as 


PC WAITS 


REPCNT 
ee 5 


Be Se Ge Se Fe Ge Se Be Be Ge Ge 


IN RANGE 0-177 


; GET NEXT COORD 
END OF ROW ? 


NOT YET 

ELSE SET NEW_ROW STARTER 
IN RANGE 0-177 

END OF PISPLAY ? 

NOT YET 

SET NEW PICTURE STARTER 
IN RANGE 0-1 


; WAIT 1 SECONDS 


- YES 
NO EXIT TEST 

GET NEW FOREGROUND 
ALL DONE 

GET NEXT BACK GROUND 
ALL DONE 

NO 

YES 


YES GO DO IT 


SEQ 0039 
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SRC ~JAN-81 10: TEST1 


CWICA. 
1 : .SBTTL TEST10 
i : THIS TEST PRINTS THE CURRENT ACCUMULATION OF ERRORS 
1640 905 012737 000010 007454 TEST10: MOV #10, TESTNO : SET TEST NUMBER 
1641 1 TRAP+2 
lose 00527 531 T1001 
164 905 7 At 011624 JSR PC, TESTR : PRINT TEST NUMBER 
1644 014 JSR PC: TYPOUT 
ieee 1 14 T1001 1 te PC, CRLF NEW LINE 
1e0o 14 7 Spe JSR PC: TYPOUT : SAY 
1648 EMSG9 : ERROR COUNT = 
1649 005 1 007442 ERRDI1,RO + PRINT HI WORD 
1650 005 15024 JSR PC 
1651 005 013 75746 MOV ERRDIS,RO : AND LO WORD 
1652 005 004 915024 JSR PC ,PROCT 
1653 005. 9090 ? CLR RAF L 
1654 005 007574 CLR ERRDIS 
1655 005352 7 007 CLR ERRDI1 
1656 005356 000137 001 JMP RSTART ; RESTART 


C 
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CA.SRC 08-JAN-81 10:36 TES SEQ 0041 


1658 .SBTTL TEST11 
1660 : THIS TEST DISPLAYS A PICTURE SUITABLE FOR TESTING ADAPTERS. 
1661 > 7 BLOCKS OF 4 ROWS EACH OF THE FOLLOWING COLOURS,WITH 1, 
1 y 

1664 005 012737 000011 007454 TEST11: MOV #11, TESTNO : SET TEST NUMBER 

1665 005 10440 TRAP+2 

1666 005372 0054 

1667 005374 004737 011624 JSR PC, TESTR : PRINT TEST NUMBER 

16 9 005400 005005 S$: CLR RS 3 FIRST PICTURE ELEMENT 
1671 905402 010500 10$: MOV R5,RO : GET COLOUR 

1678 Sossoe INC RO ; FIRST COLOUR RED,NOT BLACK 
1674 sea 3248 $00 177770 BIC #177770,RO : FOREGROUND E 
1675 005414 010501 R5S_R1 + GET CHARACTER 

1676 005416 1 00 BIC #177700,R1 

1677 10577 002010 R>.@DEVCSR : SET POSITION 

1678 127 14 R1.#12, + 1/2 MHZ? 

1679 103013 BCC 208 : NO.. 

1680 005434 1 000076 BIC #76,R1 + EVEN? 

1681 005440 90 Q 12$ : YES... 

eB O044e 10002 MOV RO,R2 : SET F/B SAME.. 

1 ASL Re : COPY TO BACKGROUND 
1684 005446 ASL R 

1685 005450 ASL R2 

1686 005452 BIS R2,RO : COPY BACK.. 

1687 005454 000422 BR 7 

1689 005456 12s: CLR RO 

1690 005460 000420 BR 77$ : LOAD IT.. 

1 005462 127 000030 20s CMP R1,426 : 1 MHZ? 

1698 005466 103001 BCC 40$ > NO.. 

1694 005470 000414 BR 77$ 

1696 005472 920127 000044 40s CMP R1,436 3 2 MHZ? 

1697 005476 103003 BCC 60$ 

1698 005500 052700 011400 BIS #19. %400,R0 LOAD 2 MHZ.. 

1699 005504 $0506 BR 77$ 

1701 127 000060 60s CAP R1,448. : 4 MHZ? 

1508 o0ssts 103005 011000 Bis 1008 OT, heey Theses 

1704 005520 Beco BR 773 ; 

1706 005522 010077 001712 77$: MOV RO, @DEVBUF : LOAD CHARACTER 

1500 0035590 $0385? 004000 toos: te BB. aso00 DONE? 

1710 0055 85935 2 BNE 10$ > NO... 

1712 005536 905737 007462 TST PROM ; LOAD CHSR? 

at 005542 001015 BNE 120$ >; NO.. 
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36 TEST11 


10: SEQ 0042 
907 4 ; MOV HR RO : VAS... 
MOV r Ri 
14 001654 MOV #140000, aDEVCSR 
001652 102$: MOVB (RO)+,@DEVBUF =; LOAD BYTE INTO CHSR 
001644 INC adEVCcsR 


R1 
102$ 


040000 001632 120s: #40000, @DEVCSR ; TURN ON VIDEO... 
RSTART 


001200 JMP 


SEQ 0043 


AND/ 


, 


-a/ 
a/ 
T SETTINGS ARE NOT ALLOWED/ 
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RE-ENTER THE VALUE .....@/ 
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| CWTCA.SRC ~JAN-81 10:36 ASCII STRINGS SEQ 0044 
1783 LIST BEX 
f 
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SEQ 0045 
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_ VTV30K 
_ CWTCA.SRC 
1840 0074 TESTNO: 0 
| 1841 0074 BASE: 0 
16 BASE1: 0 
184 PROM: 0 
1844 FORGND: 0 
1845 007 BAKGND: 0 
1846 BLINK: 0 
| 1847 +0074 FLASH: 0 
1848 CARX: 0 
1849 007476 CARY: 0 
| ise) § SwWR USUR 
| 
18 Bae i. | 
185 oles REPCNT: 0 
1854 00751 001000 JM600: JMP 
1855 007514 FSTCNT: 1 
1856 007516 000000 TRPARG: 0 
1857 oo7 388 000000 TRPSEL: 0 
1858 0075. 000000 TRPMEM: 0 
1859 0075 000000 SAVPC: 0 
1860 0075 000000 SAVPC1: 0 
1861 0075. 000000 TYPOTA: 0 
Ieee 0075 000000 RAND: 0 
1 0075 000000 TYPD1: 0 
1864 007536 000000 MOD. 0 
1865 007540 000000 MODSAV: 0 
1866 007542 000000 BASADD: 0 
1867 007544 000000 TRPE 0 
1869 907350 o90000 CHAR 0 
1870 ere 52525 RANDN: 52525 
1872 907856 O00006 RADHA: 6 
1898 00 525 RANST: 52525 
1874 00 Good: 0 
1875 007564 BAD: 0 
1876 007566 DATA: 0 
1877 0075 STATUS: 0 
1878 0075 ADDRES: 0 
1879 007574 000000 ERRDIS: 0 
1880 007576 ERRARG: 0 
1881 007 CALLPC: 0 
Ha 007 CNVFLG: 0 
1 dh STRADD: 0 
1884 7 STRLEN: 0 
1885 00761 staat LOWCHR: 0 
1886 0076i2 UPPCHR: 0 
1887 007614 staat RUBFLG: 0 
1888 007616 RANDC: 0 
1889 007620 000000 FSAVPW: O 
1890 007622 000000 PAL: 0 
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VTV30K DIAGNOSTIC MACY11 30A(1052) 08-JAN-81 10:58 PAGE 33-2 
CVVTCA.SRC =JAN-81 10:36 PROGRAM VARIABLES SEQ 0049 
011354 70 70 70 -BYTE . ’ 370 
011 -BYTE . : 26 . 3110 
11574 0 0 0 “BYT > $40,340,340, 340 
Waie 200 00 ‘BYTE ; )°200,200. 
5009 Oi 1ce6 200 $60 «500 “BYTE -200,200,200,200,200,200. 
2010 0114 001 001 “BYTE ’ 001,001 . 0 001 
oi) 011444 001 001 001 -BYTE . oYOT M . 
ig 011454 200 200 200 -BYTE ° EVV eCYWV EW OCW. 7? 
201 011464 000 000 000 .BYT ¥ -900,000.000.000.000, 
2014 01 1474 200 000 000 -BYTE e e IV eo 4! e JUV oe JV e J e 
2015 011504 001 000 000 -BYTE e e JUV e a e 4! e JUL e +4 ~000 Py 120 
2016 011514 000 000 000 “BYTE -000,000-000- 000; 000: 000°001 
2017 011 2¢¢ 000 010 024 -BYTE 010, 343.000.000.000 
2018 0115 010 010 030 -BYTE O19, 100.060,030.010 
2019 011544 000 074 146 -BYTE 007%, -€¥1 009, 009 
2020 011554 030 060 140 -BYT 060,140, 100,100. 140,060.0 
2027 011564 000 000 000 -BYT -000,000, 9 -010.010,010 
2022 011574 010 010 010 -BYTE -910.010,010,370.000.000.000 
2023 011604 010 010 010 -BYTE -010,010,010,013,000,000,000 
soSe 011614 000 000 000 BYTE 000,000,000,000,370,010,010,010 


a 
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CWTCA.SRC  08-JAN-81 10:36 PRINT TEST NUMBER SEQ 0050 
soe? .SBTTL PRINT TEST NUMBER 
| 31 : DESCRIPTION: 
Son : ROUTINE TO PRINT THE TEST NUMBER IN OCTAL 
2035 : 
2036 : CALLING SEQUENCE: 
2037 ; 
2038 : JSR P=, TESTR 
2039 : 
2040 : INPUT PARAMETERS: 
204 : TESTNO CONTAINS THE OCTAL TEST NUMBER TO BE 
204 ; PRINTED 
2044 ; 
2045 ; 
2006 : IMPLICIT INPUT PARAMETERS: 
2048 : THE LABEL TESMSG IS THE START ADDRESS OF AN 
2049 : ASCII STRING 'TEST NO 
2050 : 
2051 : 
2032 ; OUTPUT PARAMETERS: 
2054 : RO WILL BE CORRUPTED 
2055 : 
2056 3 
2057 : 
2038 : IMPLICIT OUTPUT PARAMETERS: 
2060 : THE MESSAGE ‘TEST NO N’ WILL BE PRINTED ON THE 
2061 : CONSOLE TERMINAL 
2062 z 
2063 : 
opes : COMPLETION CODES 
2067 NONE 
2068 : 
2069 ; 
70 ; POSSIBLE ERROR CODES: 
20 : NONE 
3008 3 
2074 : 
2075 . 
2071 011624 004737 014734 TESTR: JSR PC, TYPOUT 
2077 011 TESMSG : TEST NO 
2078 011632 01 007454 MOV TESTNO, RO 
2079 011636 004737 015024 JSR PC ,PROCT :PRINT OCTAL TEST NO 
11 000207 RTS PC TEXIT 
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VTV30K DIAGNOSTIC MACY11 30A(1052) O8-JAN-81 10:58 PAGE 35 
CWTCA.SRC =JAN-81 10:36 SYNC UP THE PROGRAM SEQ 0051 
.SBTTL SYNC UP THE PROGRAM 
5 ; DESCRIPTION: 
2087 ; THIS ROUTINE WILL ATTEMPT TO SYNC THE PROGRAM UP 
2088 ; TO EITHER A HI-LO LO-HI TRANSITION START 
2089 : OF THE FIELD VIDEO PERIOD. 
2090 ; A FEATURE IS AVAILABLE, BY TYPING THE 
2091 ; SPACE KEY ON THE CONSOLE TERMINAL. THIS CAUSES 
209; ; THE ROUTINE TO EXIT PREMATURELY, INDICATING THAT 
209 ; IT COULD NOT SYNC UP. 
209% : 
2095 $ 
2096 : CALLING SEQUENCE: 
2097 : 
2098 ; JSR PC, SYNCUP 
2099 : A: 
2100 ° B: 
2101 : 
2102 ; 
2103 ; INPUT PARAMETERS: 
2104 : 
2105 ; NONE 
2106 : 
2107 ; 
g10e ; IMPLICIT INPUT PARAMETERS: 
3110 : DEVCSR CONTAINS THE CURRENT CSR ADDRESS 
2112 ; 
2! 13 ; OUTPUT PARAMETERS: 
2115 : TWO POSSIBLE RETURN ADDRESSES CAN BE USED DEPENDING UPON 
2116 ; THE SUCEES OF THE SYNC ATTEMPT. 
2117 ; A: IMPOSSIBLE TO SYNC UP OR SPACE TYPED ON CONSOLE 
2118 ; B: SYNCED UP 
2119 Z 
2120 : 
2121 ; 
$is¢ : IMPLICIT OUTPUT PARAMETERS: 
2124 ; NONE 
2125 3 
$158 ; COMPLETION CODES 
2128 : 
$180 sonia 
2131 : 
$136 : POSSIBLE ERROR CODES: 
2134 ; ERROR 70- CANNOT FIND AN INITIAL LEVEL 
siz 3 ERROR 67- CANNOT CHANGE STATE 
2137 : 
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76 

77 

78 

79 012000 
2180 012004 
2181 012006 
2182 
2183 012012 
218 012014 
2185 
2186 
2187 
2188 
2189 
2190 012016 
$13) 012022 
a 4 012024 
219 


737 
093005 
012703 


012702 


004737 
000067 
00402 
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OB JAN-81 10:36 Ss 


013740 


037777 
000040 


173346 
15 

010000 
040000 


140000 


030000 
000040 
037764 
000001 


160000 


000040 


016666 
012032 


016666 


N 
10:58 PAGE 35-1 
PROGRAM 


08-JAN-81 
YNC UP THE 
SYNCUP: JSR PC SAVREG 
CLR R 
CLR RG 
MOV #037777 ,R3 
MOV #40,R2 
10$: MOV ap RI 
BIC ithe *R1 
SUB #010000; 
BMI 20$ 
CMP R4 #040009 
eo R1.R4 
BR 308 
50s: CMP R4 4140000 
BEQ 
ADD R1,R4 
$0$: TST R4 
BMI 35$ 
CMP R4 #030000 
BCS 40$ 
MOV #40.R 
CMP R3,4037764 
BCC 408 
MOV #1,R5 
BR 40$ 
$5$: CMP R4,#160000 
BCC 40$ 
TST RS 
BNE 50$ 
MOV #40,R2 
40$: DEC Re 
45$ 
: ERROR- 
> CHECK *LEVB CLOCK H’ 
; *LEVB VA17 H' 
JSR PC.E 
70 
JMP NOSYNC 
45s DEC R3 
BNE 10S 


JSR 
67 
BR 


VA V. 
*LEVB VAI7 H* 





ERROR- 
CHECK "LEVB CLOCK H* (8 MHZ) 
*LEVB CLOCK L’ 


NOS YNC 


BeBe Se Se Se Be Be Se Be Se 


STABILITY 
; ELSE NOISY SYNC IGNAL! 


SAVE 


SETU’ 


SET FILTER iiME CONSTANT 


GET CONTENTS 
; ISOLATE VIDEO-ON 
NORMAL I SE 


GOODIES 
SETS 7O 1 WHEN HIGH LEVEL DETECTED 
SET “ina INATE 


AROUND ZERO. 


UP OR 

AT END STOP? 
YES.. 

; ELSE, UPDATE. 


~! END STOP? 


RESET iE _— 


+ ty TEST 
Ser FLAG... 


: VALID ZERO? 

; HIGH LEVEL YET? 
YES, A-OK! 

: RESET TIME CONSTANT 


TIME CONSTANT TALLY.. 
OK SO FAR IF BRANC 


; ERROR EXIT 
; TIMOUT FOR SYNC? 


SYNC STOPPED! 
ERROR RETURN 


SEQ 0052 


B. 5 
VTV30K ggg 6 macy 30A(1052) O8-JAN-81 10:58 PAGE 35-2 
JAN-81 10: SYNC UP THE PROGRAM 


CVVTCA. SRC 
1% 012026 062716 000002 50$: ADD #2, (SP) ; UPDATE TO GOOD RETURN 
$138 01 ‘4 004737 013776 NOSYNC: JSR PC.RSTREG ; RECOVER REGISTERS. 
197 01 000207 RTS PC : «AND EXIT 


Crh 


VTV30K DIAGNOSTIC macy) 30A(1052) alt 3 tase 10:58 PAGE 36° 


| CWTCA. SRC -JAN-81 10:36 A NUMBER OF SECONDS SEQ 0054 
199 .SBTTL WAIT A NUMBER OF SECONDS 

| 2201 3 
320¢ ; DESCRIPTION: 
2204 : ROUTINE TO WAIT A NUMBER OF UNITS (SECONDS), BASED 
2205 : UPON THE FIELD VIDEO PERIOD. 
2206 : 
2207 ; 
2208 : CALLING SEQUENCE: 
2209 ; 
210 : JSR PC,WAITS 
211 : XX 
2212 : 
2213 3 
can : INPUT PARAMETERS: 
$315 : XX IS THE NUMBER OF UNITS (SECONDS) TO WAIT 
2218 : 
2219 ; IMPLICIT INPUT PARAMETERS: 
2221 : NONE 
2222 : 
2223 3 
2224 : OUTPUT PARAMETERS: 
2225 : 
2226 : NONE 
2227 ; 
2228 ; 
2229 : IMPLICIT OUTPUT PARAMETERS: 
2230 : 
2231 y 
2232 : NONE 
2233 3 
2234 e COMPLETION CODES: 
s530 : NONE 
2237 ‘ 
2238 ie 
2239 : POSSIBLE ERROR CODES: 
2240 : 
2241 3 NONE 
$4 
2244 0120460 004737 013740 WAITS: JSR PC, SAVREG : SAVE REGISTERS 
2245 012044 017601 000000 MOV 9(SP) RI + GET SECOND COUNT 
2246 012050 96271 000002 ADD SP) + PROTECT RETURN 
2267 01 1 007454 MOV *ee(S Re : GET TEST 
248 01 105762 001436 TSTB TABLeDtR ) + IS IT STALL-ABLE? 
$505, OI oOee8> 001176 Oe REACT «ees sem OVERRIDDEN TIMER? 
2251 otS0%5 001402 BEQ 6 : NO.. 
2052 012074 013701 001174 MOV REACT,R1 + ELSE RESET TIME. 


5554 012100 013702 007452 iS: MOV. WAIT1,R2 : GET TIME FOR ONE SECOND. 








5 
A NUMBER OF SECOND SEQ 0055 


VTV30K DIAGNOSTIC MACY11 30A(1052) woe nes 10:58 PAGE 3601 
CWTCA. SRC JAN-81 10:36 
5 
36 12104 105737 177560 2$ TSTB =‘ TKS : ANY CONSOLE INPUT? 
12110 1 iF BPL 3$ : NO... 
58 01011 14206 JSR PC READ : ELSE GET CHARACTER.. 
9 01211 7 0 CMP RO,#° : EXIT ON SPACE 
0121 14146 BEQ 
2261 0121 000007 CMP RO,#°G&37 : "BELL'? 
ssee 0121 001 BNE 3$ 3; NOL. 
2 0121 013546 JSR PC MONIT : ..ELSE CALL UP MONITOR. 
2265 012136 004737 011644 S$: JSR PC, SYNCUP : 
3066 012142 49 NOP + IGNORE ERRORS 
7 012144 005302 DEC R2 ; SECOND? 
012146 001356 BNE 2$ ; YET.. 
012150 005301 DEC R1 + MORE SECONDS? 
370 012152 001352 BNE 1$ : YES, KEEP LOOPING 
2272 012154 004737 013776 ?$: JSR PC .RSTREG : EXIT AFTER RECOVERING REGS. 
2273 012166 600207 RTS PC 


$ 
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haenpe 
SELECT 525/625 


10:58 PAGE 37° 
-SBTTL SELECT 525/625 


DESCRIPTION: 


THIS ROUTINE PROMPTS THE OPERATOR TO eS WHAT 
pad Abe ARE BEING he 1 a THE ROUTINE PROMPTS 
*VTV. 2°", AND 


LOOKS FOR A RESPONSE OF A,B,C,D OR G, 
To SELECT THE APPROPRIATE DEVICE. HAVING FOUND WHI 


CH 
EVICE HAS BEEN SELECT, THE ROUTINE THEN SETS UP FLAGS 
RST THE SIZE >F THE DISPLAY AREA AND WHETHER IT HAS 
A ROM OR at CHARACTER STORE. 
CALLING SEQUENCE: 


JSR PC,,SETDEV 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUT PARAMETERS: 
NONE 


OUTPUT PARAMETERS: 


PROM=0 FOR RAM CHSR 
PROM=1 FOR PROM CHSR 


= MAXIMUM X ADDRESS 
= MAXIMUM Y ADDRESS 


WAIT1= TIMER VALUE FOR 1 SECOND (?) 
RELEVANT RAM CHARACTER SET 


IMPLICIT OUTPUT PARAMETERS: 
NONE 


COMPLETION CODES: 
NONE 


POSSIBLE ERROR CODES: 
NONE 


SEQ 0056 
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| VIV30K DIAGNOSTIC MACY1 SOA(1052)__O8-JANEB1 10:58 PAGE 3741 | 
| CWICA.SRC -O8-JAN-81 10:36 SELECT 525/625 SEQ 0057 | 
2331 
| S35q 012162 004737 013740 SETDEV: JSR PC, SAVREG ; SAVE OLD ENVIRONMENT | 
01 166 737 014734 is: JSR PC, TYPOUT : ASK MODULE TYPE? 
5 0121 5610 SETS6 
91 174 737 (014 JSR PC READ : READ REPLY...A/B/C/D/G 
é 1 012701 012374 MOV #DEVLST.R1 t GET CHECK TABLE ADDRESS 
2339 01 121100 S$: CMPB Ss (R21) ,RO ; THIS MODULE? 
01 1404 BEQ 10$ : YES.. 
Fe) 01221 909721 TST (R1)+ t ELSE SKIP ON TO NEXT 
12212 005711 TST (R1) : END OF TABLE? 
$308 1g 14 0013 : TRY NEXT 
oh 012216 0007 BR 1$ : Lge RESTART. 
2346 0122 5037 007622 10$ CLR AL ; PRESET TO NON-TV-ENCODED. 
2347 012226 711 BIT #1000, (R1) t IS IT 525? 
01 1407 BEQ 2$ ; 5 tr BRANCH 
2349 012232 012737 000033 007500 MOV #27. .YMAX > MAXIMUM ROW NO FOR 525 
2350 912240 012737 000074 007452 MOV #60. ,WAITI + 60 FRAMES/SEC 
9351 012246 000406 BR 13$ 
2353 012250 012737 000037 007500 128: mov #31. . YMAX : 32 ROWS IN 625 
3334 012256 012737 000062 007452 MOV #50. ,WAITI : 50 FRAMES/SEC 
2356 01 012737 000077 007446 13$: MOV #63. ,XMAX : 48 VISIBLE .16, INVISIBLE CELLS. 
2357 Ol2e72 01 000001 007462 MOV g" : TO PROM CHAR SET. 
2358 01 032711 000400 BIT #400, (R1) : ? 
2359 012304 001030 BNE 20$ : YES. 
2360 01 007462 CLR PROM é ELSE "RESET TO RAM “7 STORE. 
2361 012312 004 014734 JSR PC, TYPOUT : ASK IF ENCODED FOR T 
3362 012316 905627 SETENC 
01 004737 014206 JSR PC READ : GET REPLY.. 
2364 (01 4 012701 017242 MOV ANORCH,R1 : DEFAULT TO NORMAL ge SET 
2365 1 12 27 CPB RO.#"Y : IF YES, THEN WE ARE ENCOD 
S368 012336 012737 000001 007622 MOV #1 ,PAL : SET ENCODED (ONLY RELEVANT FOR RAM) 
3368 012344 012701 021242 MOV #PALCH,R1 + GET THIS CHAR SET 
2370 012350 012700 007624 15$: MOV #POZCHR RO : GET DESTINATION. 
2371 012354 012702 001000 MOV 000,R2 + 512 WORDS=128 CHARS. 
012360 012120 16$: MOV (R1)+, (RO)+ : TRANSFER 2 BYTES. 
2374 012362 DEC R2 
3375 012364 0013 BNE 16$ : ANY MORE? 
2377 012366 004737 013776 20$: JSR PC .RSTREG : RECOVER REGISTERS. | 
3378 012372 000207 RTS PC ! 
2380 > THE FOLLOWING TABLE HAS AN ASCII CHACK BYTE IN EACH WORD, | 
et : : TOGETHER WITH 400 IF IT IS A PROM UNIT, AND 1000 FOR 525. | 
2 012374 000470 BEVLST: *8+6 : INTERFACE, -KA | 
2384 012376 001471 +5540081 000 : -KB 
2385 012400 900060 *0+000+0000 : -KC 
2386 012402 001061 *1+000+1000 : -KD 
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SEQ 0058 
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CVVTCA.SRC =JAN-81 10:36 A FULL PICTURE : SEQ 0059 
Seon -SBTTL LOAD A FULL PICTURE 


DESCRIPTION: 


} ; 

§ 95 5 ROUTINE TO LOAD A FULL PICTURE WITH A GIVEN 
Sao0 ; CHARACTER CODE, COLOUR, BLINK AND FLASH SETTING 
2398 ; 

2399 ; 

Sine 3 CALLING SEQUENCE: 

2402 ; JSR PC .LOADFS 

2403 3 

2406 é 

Sipe , é INPUT PARAMETERS: 

2407 : FLASH, BLINK, CHAR, FORGND,,BAKGND, VIDEON ARE TO AS 
2408 ; FLASH CODE, BLINK CODE, CHARACTER CODE, FOREGROUND 
2409 5 COLOUR, BACK GROUND COLOUR, AND THE VIDEO ON ENABLE 
2410 : RESPECTIVELY. 

2411 3 

2412 é 

17 Hy IMPLICIT INPUT PARAMETERS: 

2415 g NONE 

2416 : 

2417 ; 

soi8 : OUTPUT PARAMETERS: 

50 ; CARX, AND CARY ARE DESTROYED 

2422 3 

Se5z ; IMPLICIT OUTPUT PARAMETERS: 

2425 s NONE 

2426 ; 

2427 : 

2428 3 COMPLETION CODES: 

2429 : 

2430 : NONE 

2431 : 

2432 3 

2433 5 POSSIBLE ERROR CODES: 

2434 : 

2435 3 NONE 

2436 : 

2437 FY 

2438 : 

2439 012410 004737 013740 LOADFS: JSR PC, SAVREG 

2440 012414 005037 007476 CLR CARY ; CLEAR OUR Y COORD 

2441 012420 005037 007474 CLR CARX ; AND OUR X COORD 

2442 01 2% 013 007550 MOV CHAR ,R2 ; PRESET THE PICT TO THIS CHAR 
sia SEK 05 30 007470 ais Be in R : HEAD GL INK AND FLASH BITS 
2445 012436 053702 007472 BIS aie Re 


at Dp | PF , macy sa htens ® oe thal 10:58 PAGE 3641 


| CWTCA. SRC A FULL PICTURE 
2uhg 007464 BIS FORGND ,R2 
| 007466 MOV BAKGND,R1 
ASL R1 
| 9 ASL R1 
50 ASL 1 
451 BIS -R2 
¢ 436 MOV DEVCSR,RO 
gh 007440 MOV E »R1 
54 007450 MOV VIDEON RS 
2455 000 #4000, 
2456 : 
gh57 d$: MOV R3, (RO) 
58 MOV R2.(R1) 
2459 INC 
2460 DEC R4 
2461 BNE 2$ 
2462 013776 JSR PC .RSTREG 
2463 RTS PC 





-” 


5 


; LOAD FOREGROUND COLOUR 
; GET BACKGROUND COLOUR 


TO CORRECT BITS 


AND LOAD INTO DATUM WORD 
GET THE CSR_ ADDRESS 
ALSO _THE DATA BUFFER 
GET THE VIDEO ON BIT.. 
PICTURE STORE COUNT 


LOAD CSR_ WITH ADDRESS 


LOAD PICTURE ELEMENT 
NEXT PICTURE ELEMENT 
ANY MORE? 


YES. ee 
RESTORE THE REGISTERS 
AND EXIT. 


SEQ 0060 


J 
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_ VTV30K DIAGNOSTIC MACY11 30A(1052) 08- 
| CWTCA.SRC = (08-JAN-81 10:36 LGAD A PICTURE ELEMENT 
2465 .SBTTL LOAD A PICTURE ELEMENT 
| 2466 : 
2467 3 
hes ; DESCRIPTION: 
| 2470 : ROUTINE TO LOAD A SINGLE PICTURE ELEMENT 
| 247 : 
24 : CALLING SEQUENCE: 
2474 3 
2475 : JSR PC,LOELEM 
2476 3 
| 0677 : 
2478 : INPUT PARAMETERS: 
2479 : 
2480 : CARY= Y POS 
2481 : CARX= X POS 
2482 : CHAR= CHAR CODE 
2483 : FOR FOREGROUND COLOUR 
2484 : BAKGND= BACKGROUND COLOUR 
2485 : BLINK= BLINK STATUS 
2486 : FLASH= FLASH STATUS 
2487 : VIDEON= VIDEO ENABLE STATUS 
2488 : DEVCSR= ADDRESS OF CURRENT CSR 
2489 ; DEVBUF= ADDRESS OF CURRENT DBUFF 
2491 : ae 
2492 ; 
2495 : IMPLICIT INPUT PARAMETERS: 
2495 : NONE 
2496 ; 
2497 ; 
2498 : OUTPUT PARAMETERS: 
2501 : 
2502 : 
3908 : IMPLICIT OUTPUT PARAMETERS: 
2505 : NONE 
2506 5 
2507 : 
2908 ; COMPLETION CODES: 
2510 : NONE 
2511 ; 
$218 : POSSIBLE ERROR CODES 
ae ico | 
$219 
2518 012522 004737 013740 LOELEM: JSR PC, SAVREG 
2519 012526 913702 007474 MOV CARX,.R2 : SET UP REGISTER 
2520 012532 013701 007476 MOV CARY.R1 = an oe ere 


SEQ 0061 


, -- 


| VTV30K gata 8 1 mc 30A(1052) 
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g 
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174000 
007450 
174652 
007464 
007466 


174606 
013776 


08- 
LOAD 


K 5 
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A PICTURE ELEMENT 


Re, 
PC ,RSTREG 
PC 


GET Y ADDRESS IN TOP BYTE 


SHIFT IT DOWN 
SH 


IT we 
T OUR X AND Y ADDRESSES 
; START WITH FOREGROUND 
GET BACKGROUND COLOUR 


; SET IT IN CORRECT POSITION 
; ADD TO COMPOSITE 


: SET BLINK IF REQUIRED 
: FLASH 


; GET CHARACTER 
; THE SET IN THE CORRECT POSITION 


; ADD IT IN 
OUT 


SEQ 0062 
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| VTV30K DIAGNOSTIC MACY]1 30A(1052), <08-yan-8 10:58 PAGE 40° 
CWTCA. SRC =JAN-81 10:36 LLSI' SUBROUTINE 


| 
S24? -SBTTL ‘SILLSI' SUBROUTINE 
7 : 
a548 : DESCRIPTION: 
550 ; ROUTINE TO ESTABLISH WHETHER OR NOT THE 
551 ; DIAGNOSTIC IS RUNNING ON A_ PROCESSOR 
$22 ; WHICH POSSESSES ONLY ONE INTERRUPT BUS 
5 3 PRIORITY LEVEL. 
2554 3 
2555 ; 
$229 3 CALLING SEQUENCE: 
255 n 
2558 3 JSR PC,SILLSI 
2559 3 
2560 3 
2561 3 INPUT PARAMTERS: 
2562 ; 
2563 ; NONE 
2564 ; 
2565 ; 
$208 ; IMPLICIT INPUT PARAMETERS: 
2568 ; NONE 
2569 : 
2570 : 
$27) ; OUTPUT PARAMETERS: 
2573 F THE VARIABLE ‘LSIFLG* WILL BE SET UP TO 
2574 F REFLECT WHETHER OR NOT THE PROCESSOR HAS 
pole A SINGLE INTERRUPT PRIORITY LEVEL. 
2577 3 LSIFLG = OQ => MULTIPLE INT. Na 
2578 3 <> 0 => SINGLE INT. PRIORITY 
2579 : 
2580 : 
2581 F IMPLICIT OUTPUT PARAMETERS: 
2583 ; NONE 
2584 3 
2585 : 
2586 : COMPLETION CODES: 
2587 5 
$208 ; NONE 
2590 3 
$25) : POSSIBLE ERROR CODES: 
259 : NONE 
259% : 
§ 


;SET_UP FLAG FOR NON-LSI 
CORRESPONDING PRIORITY 





INSTALL TRAP THRU 4 VECTOR 
7 AND 


SEQ 0063 


5 
gpa 1 macy) 30A(1052) | O8-JAN-81_ 10: + PAGE 40-1 
JAN-81 10:36 


2 
Se 


CWTCA. SRC "SILLSI' SUBROUTI SEQ 0064 
1 3 

1 5737 177776 TST PSw :TRY ADDRESSING THE PSW == 
1 240 NOP T THERE, TRAP THRU 4 
1 000404 BR 2s “WILL OCCUR, ELSE BRANCH. 
012670 02 CMP (SP)+, (SP)+ ;PERFORM A DUMMY RTI 
01 012737 177777 012702 MOV #=1,LSIFLG [PROCESSOR HAS ONE INT.LEVEL 

seo @: 012700 000207 2s: RTS PC ;RETURN TO MAINLINE CALL. 
012702 000000 istFiG: 0 ;0 => MULTIPLE INT.PRIORITIES 


:71=> SINGLE INT. PRIORITY 


SERRE 
NOUSWN—O 


08-JAN-81_ 10: + —_— «i 
WON EXISTANT SWR T SEQ 0065 


dt DIAGNOST sth 30A(1052) 


PERRRAE ERG pega nicoeya en Gnens 


& 
es 


ar 
WN 


SSIS SS ut Mas 


Nm 


é 


Be Be Be Be Be Be Se Be Be Be Be Be Ge Be Be Be Se Be Be Ge Be Be Be Be Be Fe Ge Be Ge Be Be Ge Ge Ge Be Be Ge Fe Be Se Be He Be He He BeBe Be Ge 


012737 007504 007502 
000002 


& 


-SBTTL NON EXISTANT SWR TRAP 


DESCRIPTION: 


THE TRAP WHEN TESTING FOR THE HARDWARE 

SWITCH REGISTER WILL OCCUR HERE 

THE LOACTION SWR WILL BE SET TO CONTAIN THE 

ADDRESS OF THE SOFTWARE SWITCH REGISTER SSWR 
ENTRY POINT 


SWRSET 

INPUT PARAMETERS: 
OCCURS IF A HARDWARE SWITCH REGISTER IN NOT 
PRESENT 

IMPLICIT INPUT PARAMETERS: 


NONE 


OUTPUT PARAMETERS: 
THE LOCATION SWR WILL BE SET TO CONTAIN SSWR 


IMPLICIT OUTPUT PARAMETERS: 
NONE 


COMPLETION CODES: 
AN RTI IS PERFORMED 


POSSIBLE ERROR CODES: 
NONE 


3 94 #SSUR , SWR 
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10: 36 SET UP ILLEGAL VECTOR TRAPS 


-SBTTL SET UP ILLEGAL VECTOR TRAPS 


DESCRIPTION: 
ROUTINE TO SET CATCHES FOR TRAPS TO ILLEGAL 
VECTORS IN THE RANGE 0 TO 772, DURING THE 
RUNNING OF THE TESTS. 

THE CATCH IS TO FORCE THE EXECUTION OF AN IOT 

THE VECTOR 14 (ODT VECTOR) IS LEFT FREE 

34 (TRAP VECTOR) IS SET TO THE ADDRESS f 

0 ERY THE TRAP INSTRUCTION. THE VECTOR 

SET TO ILLVEC TO SERVICE ILLEGAL 

ADDRESSES AND 202 

BE RESTARTED FROM S$ 200. 

LOCATIONS 30 AND 32 AND SET TO CATCH EMT CALLS 

AND HENCE READ THE PROCESSOR PRIORITY 


LOCATION 40 IS LEFT FREE TO CONTAIN THE LOAD 
cietaie Ne toe LOCATION IS LEFT FREE TO 


PRESENT). LOCATION 46 IS SET TO 


TURN ADDRESS (IF 
CONTAIN A_ POINTER TO THE XXDP RETURN ADDRESS AND 
LOCATION 52 IS SET TO ZERO. 


CALLING SEQUENCE: 

JSR PC, VECTOR 
INPUT PARAMETERS: 

NONE 


IMPLICIT INPUT PARAMETERS: 
NONE 


OUTPUT PARAMETERS: 
RO AND R1 WILL BE CORRUPTED 


ADDRESSES 4 THRU TO 774 WILL BE SET WITH 
APPROPRIATE VALUES 


IMPLICIT OUTPUT PARAMETERS: 
NONE 


BeBe Fe Fe Be Fe Ge Ge Be Be Be Be Be Be Fe Fe Be Be Be Be Se Be Be Fe Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Ge Be Be Be Be Be Se Be Se Se Be Se Be Be 
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VTV30k DIAGNOSTIC macy 304 (1052) 08-JAN-81 10:58 PAGE E421 
CWICA. SRC =JAN-81 10:36 SET UP ILLEGAL VECTOR T SEQ 0067 
2 3 
2731 3 
é ; COMPLETION CODES: 
2 3 NONE 
2735 ; 
736 3 
aig : POSSIBLE ERROR CODES: 
2739 : NONE 
2740 3 
741 ; 
sre : 
ore 012714 VECTOR: CLR RO :FILL 0-572 WITH IOT TRAPS 
745 012716 012701 000002 MOV #2,R1 
2746 012722 000014 FILL: CMP RO. W146 ZODT TRAP? 
2747 1 001 BNE 
2748 01 0220, CMP thos, (RO) + 7YES BUMP RO 
2749 01 000410 BR 
2750 012734 020027 000040 1$ CMP ati lo ;XXDP RETURN ADDRESS 
2751 012740 00100, BNE :NO 
2752 012742 CMP (RO) +, (RO) + TYES BUMP RO 
2753 012744 BR FILL1 
2754 012746 2s: MOV R1, (RO)+ :".42" 
2755 012750 MOV #4. (RO)+ "Jor" 
2756 012754 FILL1: ADD *R1 
2757 012760 CMP RO.A776 
2758 012764 BLT FILL 
2759 01 766 MOV ATRAPSV, 34 ;TRAP (LOOP CONTROL) 
2760 012774 MOV #340 36° 
2761 01 MOV #FADR ; PLUG EMT FOR READING 
2762 01301 MOV #340, 82 t THE PROCESSOR STATUS 
2763 013016 MOV #ILLVEC.20 [PLUG 20 FOR IOTS 
2764 013024 MOV #340,2 
2765 (01 MOV Jm600, ;SET UP JMP START IN LOC 200 
2766 013040 MOV JM60042 , 202 
2767 013046 MOV ASENDAD .46 :POINT TO RETURN TO XxDP 
2768 013054 CLR 52 [CLEAR 52 
2769 013060 RTS PC :THEN EXIT 
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we ee 12: 58 oe 43° 
END OF PAS 


-SBTTL XXDP END OF PASS HOOKS 
DESCRIPTION: 


ROUTINE TO SIGNIFY END OF an Be ar oh a 
PROGRAM HAS BEEN LOADED USING AN XXDP MON 

WILL BE MADE BACK TO THE MONITOR. THE LOCATIONS Be BY 
XXDP ARE 40, AND 41 FOR THE LOAD MEDIUM AND 42, 


THE RETURN Ss. 
eo A Ao SEL eet fray test IS IN OPERATION THE PROGRAM WILL 
ENTRY POINT: 

ENDIT 
INPUT PARAMETERS: 

LOCATION 42/43 CONTAINS THE XXDP RETURN ADDRESS 
IMPLICIT INPUT PARAMETERS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUT PARAMETERS: 

NONE 


COMPLETION CODES: 


IF LOCATIONS 42/43 ARE NON ZERO THEY ARE 
ASSUMMED TO CONTAIN THE XXDP MONITOR RETURN ADDRESS 


POSSIBLE ERROR CODES: 


NONE 





ee _—— —_——— — 


SEQ 0068 


| VTV30K DIAGNOSTIC 
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| CVVTCA.SRC -JAN-81 10:36 
et 012706 001000 
1 0131 032777 000100 
01311 Bots 
013112 0001 001326 
BY 
a us ie 
BS BEB ones 
2840 0131 500 
2841 0131 013700 000042 
ore ois 001 
2845 0131 0001 001306 
2844 
2845 
2846 
2847 013142 004710 
2848 013144 000240 
2849 013146 000240 
2850 013150 000240 
2851 013152 000137 001306 
2852 
2853 
2854 


174372 


E 6 
O8-JAN-81 10:58 PAGE 43-1 
S HOOKS 


XXDP END 





OF PAS 


EnpIT: MOV ae 
0 
1 


PSWSET # 
BIT ‘4 


RESET THE STACK 
AND CESSOR PRIORITY 
IS THERE A PRESELECT ON 


00, aSwWR ; 
BEQ : NO 
JMP START2 : YES GO SELECT THE TEST 
+ NO PRESELECT ON SO SIGNAL END OF PASS 
is: TRAP+2 : BYPASS MESSAGE 
START1 
2s: JSR PC .TYPOUT : END OF PASS 
PASMSG 
MOV ar42.R0 : GET RETURN ADDRESS TO XxDP 
BNE SENDAD : IF IT IS ZERO THERE IS NO 
JMP START 1 t MONITOR SO RESTART DIAG 
$SENDAD: JSR PC, (RO) : CALLED VIA XXDP SO RETURN - 
NOP + THERE 
NOP 
NOP ; ALLOW A: SLIGHT PAUSE 
JMP START1 * THEN RESTART THE DIAGNOSTIC 


SEQ 0069 
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-SBTTL READ PROCESSOR PRIORITY 


DESCRIPTION: 
THIS IS THE EMT HANDLER AND IS USED 
T IN 


; CALLING SEQUENCE: 


CALLED BY ISSUING AN EMT 


INPUT PARAMETERS: 
NONE 
IMPLICIT INPUT PARAMETERS: 


THE LOCATIONS 30 AND 32 MUST HAVE BEEN SET 
UP TO POINT TO THIS ROUTINE 


OUTPUT PARAMETERS: 


THE CONTENTS OF THE PROCESSOR PRIORITY 
ARE RETURNED IN THE LOCATION FSAVPW 


COMPLETION CODES: 
NONE 

POSSIBLE ERROR CODES: 
NONE 


ADR: a9} 2(SP) ,F SAVPW ; READ PRIORITY 


; RETURN TO CALLER 





READ 
THE ey ste op PRIORITY OFF THE STACK "AND RETURNING 


| at DIAGNOSTIC 
_ CVWVTCA.SRC 08-JAN-81 10:36 
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013276 
013276 


177566 
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NG TTY BELL 


-SBTTL RING TTY BELL 


DESCRIPTION: 


ROUTINE TO RING THE BELL_ON THE CONSOLE 
TERMINAL, IF BIT 5 IS SET IN THE SWITCH 
REGISTER. 


CALLING SEQUENCE: 

JSR PC,BELL 
INPUT PARAMETERS: 

NONE 


IMPLICIT INPUT PARAMETERS: 
THE SWITCH REGISTER MUST HAVE BEEN 
SET UP 


OUTPUT PARAMETERS: 
THE TELETYPE BELL WILL BE RUNG IF 
APPROPRIATE 


IMPLICIT OUTPUT PARAMETERS: 
NONE 


COMPLETION CODES: 
NONE 


POSSIBLE ERROR CODES: 
NONE 


BIT #40 ,aSWR 
BELL1 


WAIT FOR PRINTER READY 
;WAIT FOR PRINTER READY 


PC 
JSR PC, TPREDY 
MOVB a7, 
JSR PC, TPREDY 


SEQ 0071 


| CVVTCA.SRC 
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JAN-81 10:36 RING TTY BELL SEQ 0072 


$328 013216 112737 000000 177566 MOVB #0, TPB ;PRINT_ NULL 
5 013224 207 RTS PC :G0 OUT 


r- —— 
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age) 10:58 PAGE “6. 


GAL VECTOR TRAP CATCH 
-SBTTL ILLEGAL VECTOR TRAP CATCH 


DESCRIPTION: 
TRAPS TO ILLEGAL VECTORS WILL BE 
REPORTED HERE. THE VECTOR TO WHICH 
T oc D WILL BE PRINTE 
AS WELL HE ADDRESS IN THE MAI 
LINE CODE eer at te 3 TRAP OCCURRED. 


A PROGRAM REST. HEN PERFORMED, 

UNLESS A NEW TEST HAS BEEN SELECTED 
WHILE RUNNING UNDER A SOFTWARE 

SWITCH REGISTER. 


ENTRY POINT 
ILLVEC 


INPUT PARAMETERS: 
ENTRY IS CAUSED BY AN ILLEGAL 
VECTOR TRAP 


IMPLICIT INPUT PARAMETERS: 
NONE 


OUTPUT PARAMETERS: 
THE VECTOR AND MAINLINE ADDRESS 
WILL BE PRINTED 
IMPLICIT OUTPUT PARAMETERS: 
NONE 
COMPLETION CODES: 
A_ PROGRAM RESTART OR A NEW 
TEST SELECTION . 


POSSIBLE ERROR CODES: 
NONE 


SEQ 0073 


| J. 6 
| VIV30K DIAGNOSTIC MACY11 30A(1052) O8-JAN-81__10:58 PAGE 46-1 
| »SRC JAN-B1 10: 


| 
| 
| CWTICA 0:36 ILLEGAL VECTOR TRAP CATCH SEQ 0074 
3013 : 
| 3014 . ; 
3015 3 
16 ZA TRAP TO AN UNRECOGNISED VECTOR WILL 
1 { :BE REPORTED FROM HERE. 
19 01 004737 014734 ILLVEC: JSR PC, TYPOUT 
1 51 ILVMSG 
1 01 01 (SP)+,RO 
3056 01 1 700 SUB #4, 
1 004 015024 JSR PC,PROCT :PRINT VECTOR 
3026 1 38 004737 014734 JSR PC, TYPOUT 
13252 006550 FRMMSG :PRINT MAINLINE ADDRES 
3026 01 005726 TST (SP) + 
3027 01 012600 MOV (SP)+,RO 
3028 013260 004737 015024 JSR PC ,PROCT 
3029 013264 005 TST (SP) + 
3030 013266 004737 013546 JSR PC ,MONIT 
3031 013272 000137 001200 JMP RSTART 


—_———— 
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-SBTTL WAIT FOR PRINTER READY 


DESCRIPTION: 
oie TO WAIT UNTIL THE PREADY 


THE CONSOLE TERMINAL IS READY 
IE: IT IS READY TO PRINT THE NEXT 
CHARACTER 


CALLING SEQUENCE: 

JSR PC, TPREDY 
INPUT PARAMETERS: 

NONE 


Be Ge Fe Be Be Se Se Ge Fe Fe Ge Ge Be Ge Se Be Be Be Ge 


IMPLICIT INPUT PARAMETERS: 


echehehehad sa sata tsel tari 


s NONE 
; OUTPUT PARAMETERS: 

3059 : 
3060 3 NONE 
3061 3 
3062 ; 
3063 : IMPLICIT OUTPUT PARAMETERS: 
aoe8 : NONE 
3066 ; 
Bae : COMPLETION CODES 
3069 3 ODES: 
3070 : NONE 
3071 : 
3078 : POSSIBLE ERROR CODES 
3074 ; saat 
3075 ; NONE 

76 : 
3358 
3079 013276 105737 177564 TPREDY: TSTB _—sO'mTPS zROUTINE TO WAIT FOR PRINTER READY 

013302 100375 TPREDY 


BPL 
3081 013304 000207 RTS PC 
3082 





VTV30K DIAGNOSTIC MACY11 30A(1052) O8-JAN-81 10:58 PAGE 48. ; 
C ~JAN-81 10:36 SET ITERATION COUNT SEQ 0076 


-SBTTL SET ITERATION COUNT 


DESCRIPTION: 


ROUTINE TO SET UP THE TEST Dh alah, 
C PROPOSED COUNT IS SET IN 
THEN UNLESS BIT 13 IN " os REGISTER 


IS SET, THE SAME VALUE 
IF BIT 13 ee SET THEN FAST ITERATION IS 
ASSUMED AND A VALUE OF 1 IS RETURNED IN 


ssesseeoeseceeys 


CALLING SEQUENCE : 
JSR PC,FASTSW 

INPUT PARAMETERS: 
R4 CONTAINS THE PROPOSED ITERATION 
COUNT 


BeBe Be Se Se Be Se Se Be Be Be Be Be Be Be Be 


IMPLICIT INPUT PARAMETERS: 
SETTING BIT 13 INT THE SWR WILL INDICATE 
FAST ITERA INGLE PASS 
WILL BE REGUES OSteD 

OUTPUT PARAMETERS: 


R4 WILL CONTAIN THE ACTUAL ITERATION 
COUNT 

IMPLICIT OUTPUT PARAMETERS: 
NONE 


COMPLETION CODES: 
3 NONE 


POSSIBLE ERROR CODES: 
NONE 
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013306 032777 020000 174166 FASTSW: BIT #20000 ,aSwR 


WWAWWINIAAIAIWAININAIAINANAIAAIAN AAAI AAAI WAAANA AAA AA AIA 
GeURoKUcUeyBUNbNNNVNssasoeaceseeesoReSes 
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CVWVTCA. SRC JAN-81 10: SET ITERATION COUNT SEQ 0077 
140 013314 1001 BNE 1$ 
141 013316 7 RTS PC 
1 3 1 007514 1$: MOV FSTCNT,R4 
14 13324 000207 RTS PC 


fe 
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-SBTTL TRAP SERVICE ROUTINE 


wae 5 
NEG S 


DESCRIPTION: 


TRAP HANDLING ROUTINE. THE TRAP HANDLER IS 

ENTERED UPON THE EXECUTION OF ANY TRAP 

INSTRUCTION. IT COMPARES THE LOWER BYTE OF THE 

TRAP INSTRUCTION WITH THE CONTENTS ON THE SWITCH 
REGISTER IF A MATCH IS FOUND TAKES THE CONTENTS 
OF THE AspRees FOLLOWING THE TRAP INSTRUCTION AS THE 
RETURN ADDRESS. 


THE EXPECTED FORMAT IS: 


TRAP+N 
ADDR 


WHERE ADDR IS THE ADDRESS TO PROCEED TO IF N na) be 
THE SWITCH REGISTER SET TRAP ARGUEMENT IS 


SLID IIA AAAI ELIAS 
LEVIS SELNEALAN SSH 


INPUT PARAMETERS: 


3165 TINGS. THE 

3166 RELATED TO THE SWITCH REGISTER SETTINGS THUS: 
3168 

3169 TRAP ARG SWR SETTING 

3170 

3171 2 200 

3172 4 : 400 

3173 10 1000 

3174 20 

3175 30 

3176 40 4000 

3177 50 5000 

3178 : 60 6000 

3179 : 70 7000 

3180 : 

3181 3 

3182 3 

3183 : THE SETTING OF SWR BIT 12, WILL FORCE THE TRAP 
3184 : HANDLER TO USE THE SWR SETTINGS THAT WERE IN 
319 ; FORCE WHEN THE LAST TRAP INSTRUCTION WAS EXECUTED. 
3187 ; IF A CNTRL-G IS OUTSTANDING ON THE CONSOLE TERMINAL 
3188 : WHEN THE TRAP WAS EXECUTED, THEN MONIT IS CALLED. IF 
3189 : CNTRL-O WAS OUTSTANDING THEN MODIFY IS CALLED 
3191 ; 

1 : 

19. : 

194 : ENTRY POINT 

195 : 

196 : TRAPSV 

1b 4 : 


S33 
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CVWVTCA. SRC JAN-81 10:36 TRAP SERVICE ROUTINE 


1 ON EXECUTION OF ANY TRAP INSTRUCTION 


IMPLICIT INPUT PARAMETERS: 
THE SWR HAS BEEN SET UP 


N 


OUTPUT PARAMETERS: 

EXIT TO THE CONTENTS OF THE ADDRESS FOLLOWING 
THE TRAP INSTRUCTION IF A MATCH WAS FOUND, ELSE THE 
PROGRAM WILL CONTINUE FROM THE ADDRESS AFTER THAT. 
IMPLICIT OUTPUT PARAMETERS: 


BNO 


23 
WDWNOULWN—O 


wh 
3 


COMPLETION CODES: 
NONE 


POSSIBLE ERROR CODES: 


T 


SRE GS USN UNGNS 





NONE 
013326 013740 RAPSV: JSR PC, SAVREG ZSAVE REGS 
013332 MOV 
013334 177776 007516 MOV -2(RO),TRPARG ;:GET TRAP CALL 
01 177560 TSTB =: TKS [LOOK FOR MONITOR CALL 
01 BPL x 
oI 50 014206 JSR PC READ 
1 54 000017 CoP R0.417 :IS IT CNTRL-O ? 
1 01 015450 JSR PC .MODIFY TYES CALL MODIFIER ROUTINE 
13370 000007 1$: cHre M7 z1S IT CTRL-G? 
5 013376 013546 JSR PC MONIT ZYES, GO TO SWR MONITOR 
174074 007520 3S: MOV @SWR, TRPSEL 
44 1 1 r 000020 007521 BIT #20. TRPSEL*1 1S IT PRESERVE SCOPE 
9 1 007520 7522 MOV TRESEL , TROMEM [NO SO SAVE SWITCH SETTING 
1 1 7522 BIC #170777, TRPMEM GET IT SO WE CAN COMPARE 
1 01 j 000016 007521 BITB #16,TRPSEL+1 § :ANY SCOPE LEVELS SET 
141 BEQ TRPLP : 
1 1 007516 TRPSCP: MOV TRPARG, RO YES 
13450 ROR :GET 19 POSITION FOR COMPARE 
55 013452 ROR [FOR 10 & ABOVE 
013454 SWAB ZONLY FOR SCOPE BITS(9-11) 
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VTV30K DIAGNOSTIC 
CWTCA. SRC JAN-81 10:36 TRAP SERVICE ROUTINE 
7 01 70 BIC #170777,R0 
1 007522 CMP RO, TRPMEM 
59 (01 4 BEQ T 
1 1 007520 TRPLP: MOV TRPSEL RO 
1 013474 1 ROL RO 
13476 1 ROL RO 
1 SWAB 
1 900371 BICB © #371,R0 
5 01 1 70 007516 BICB #370. TRPARG 
13514 1 007516 BITB RO, TRPARG 
% O18e59 Sours? 013776 OM PC URSTREG 
Bob luse Beers Shite ssh GSC 
71 013534 004 013776 TRPBAK: JSR PC ,RSTREG 
327¢ 013540 017616 000000 MO a(SP), (SP) 
3273 013544 000002 RTI 


ARGUMENT SCOPE BITS 
TAS SELECTED ? 
tNO TEST LOOP 
[FOR BITS +e8 


sCUT OUT SWw06 
sONLY SWITCHES 7 OR 8 NOW 
ies SELECTED ? 


ZNO SCOPE OR LOOP,SO RUN 
[PAST ARGUMENT AND RETURN 
SRESTORE REGS 
SRETURN ADDRESS TO STACK 
TEXIT, LOOPING 


SEQ 0080 
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VTV30K DIAGNOSTIC 
CVWVTCA.SRC =JAN-81 10:36 SWITCH REGISTER MONITOR SEQ 0081 
Le -SBTTL SWITCH REGISTER MONITOR 
77 
78 
79 DESCRIPTION: 
81 


SWITCH REGISTER MONITOR. CALLED BY AN ERROR 
WITH SWR BIT 15 C OR BY TYPING CTRL=G 
N THE C E TE ELErvbE USING HARDWARE 


SIMPLY ree F ro CONTINUE. 
STHERGI SE IT PRINT CURRENT 
CONTENTS SWITCH REGISTER, 


FOLLOWED BY A PROMPT (>). THE NEW SWITCH 
AN OCTAL SETTINGS SHOULD THEN BE ENTERED AS 


Seasear 


: » TERMINATED BY CARRIAGE RETURN. 
: YPING CARRIAGE RE WILL THE 
3391 : SwITCh REGISTER CONTENTS TO REMAIN UNCHANGED. 
3392 : IF THE SWITCH REGISTER IS UPDATED TO SELECT 
3093 : A TEST (BIT 6 SET) THE NEW TEST WILL BE 
339% : ENTERED IMMEDIATELY. 
3396 : CALLING SEQUENCE: 
3297 ; 
3298 : JSR PC MONIT 
3299 : 
3300 z INPUT PARAMETERS: 
3302 : BY TYPING CNTRL-G DURING THE RUNNING 
3303 : OF THE TESTS. 
3304 3 
3305 ; 
3308 ; IMPLICIT INPUT PARAMETERS: 
3308 : THE SOFTWARE SWITCH REGISTER, IF BEING USED 
3309 : MUST HAVE BEEN SET UP. 
3310 : 
3311 : 
as 5 OUTPUT PARAMETERS: 
3314 : IF RUNNING UNDER SOFTWARE SWITCH REGISTER MODE 
3319 : A NEW SETTING OF THE SWR COULD HAVE BEEN SET UP. 
3317 : 
3318 ; IMPLICIT OUTPUT PARAMETERS: 
3320 : NONE 
3321 3 
3322 ; 
54 : COMPLETION CODES: 
5 : NONE 
3326 : 
3355 : POSSIBLE ERROR CODES 
; : 
3330 : NONE 


—————————-———__—_—__— 
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CWTCA. SRC =JAN-81 10:36 SWITCH REGISTER MONITOR 
1 3 
1 1 MONIT: MOV RO, (SP) 
5 01 007502 177570 CMP SWRA, AHSWR 
1 14 BEQ MONI TA 
1 014734 JSR PC, TYPOUT 
1 1 7504 Ov . SSwR,RO 
1 015034 JSR PC PROCT 
1 013576 012 6 MOV #76,RO 
1 15012 JSR PC,.PCHR 
1 14034 JSR PC OCTIN 
1361 007532 TST RAND 
3345 01361 90141 BEQ MONI TX 
3346 01 1 007504 MOV RO, SSuR 
3347 01 7 000100 007504 BIT #100,SSwR 
01 001405 BEQ MONI TX 
3349 01 000137 001326 JMP START2 
3350 013640 004737 013656 MONITA: JSR PC, TYPCTC 
3351 01 000775 BR MONI TA 
3352 013646 004737 014700 MONITX: JSR PC, CRLF 
3353 013652 012600 MOV (SP) +,RO 
3354 013654 000207 RTS PC 


EON pe AE 


7 SAVE RO 
SHARDWARE SWR? 
1 Ag GO TO END 


sPRINT ‘>** 
GET NEW SETTING 
ANY INPUT? 


7 YES UPDATE SSWR 
STEST SELECTED? 


zYES GO DO IT 
sCTRL-C TO CONTINUE 


RESTORE RO 


SEQ 0082 
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(Wita. SRC 08-JAN-81 10:36 WAIT FOR CNTRL-C SEQ 0083 


COMPLETION CODES: 


A_ RETURN TO THE FIRST OR SECOND LOCATION AFTER 
THE CALL IS PERFORMED. 


POSSIBLE ERROR CODES: 


36 .SBTTL WAIT FOR CNTRL-C 
58 : 
59 ; 
o ; DESCRIPTION: 
: ROUTINE TO WAIT FOR THE USER TO TYPE 
: CNTRL=C ON THE CONSOLE. IF CNTRL-O IS HIT MODIFY 
3364 : IS CALLED, AND IF CNTRL-G IS HIT MONIT IS CALLED. 
3366 : IF NONE OF THESE ARE HIT, THE ROUTINE WILL RETURN 
3367 : TO THE NEXT LOCATION AFTER THE CALL. IF CNTRL-C WAS 
3369 ; HIT THE ROUTINE WILL RETURN TO THE NEXT LOCATION+2. 
3370 : 
3371 : CALLING SEQUENCE: 
3372 3 
3373 ; JSR PC, TYPCTC 
3374 : 
3375 : INPUT PARAMETERS: 
3370 ; 
3377 3 NONE 
3378 5 
3379 : 
Stay 3 IMPLICIT INPUT PARAMETERS: 
3382 : INPUT IS REQUESTED FROM THE CONSOLE 
pian : 
oH : OUTPUT PARAMETERS: 
3387 : RO IS CORRUPTED 
3388 ; 
3389 § 
3390 : IMPLICIT OUTPUT PARAMETERS: 
3392 : NONE 
3393 : 
3394 3 
: NONE 
TYPCTC: JSR : PC, TYPOUT :PRINTS TYPE CTRL/C WHEN READY 
JSR PC READ :CTRL/C ENTERED 
CMP RO 


# 
BNE QEXIT2 3NO 
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CWICA. SRC =JAN-81 10:36 WAIT FOR CNTRL=C SEQ 0084 
ie 013676 737 014700 JSR PC, CRLF 
13 01 at: Bod00s ADD #2. (SP) zYES SO JUMP OVER NO FIND RETURN 
14 01 QEXIT1: RTS PC : Ck 
15 01 7 000017 QEXIT2: CMP RO,A17 :CNTRL-O ? 
16 013714 001 3 BNE QEXIT3 : 
3417 1 al 015450 JSR PC ,MODIFY [YES CALL MODIFY PROGRAM 
%18 01 755 BR TYPCTC :THEN GO BACK TO START 
%19 013724 7? 000007 QEXIT3: CMP RO.A7 *CTRL=G? 
%20 01 001 366 BNE QEXIT1 
3421 01 004737 013546 JSR PC ,MONIT :G0 TO SWR MONITOR 
3422 013736 000747 BR. TYPCTC ‘LOOK FOR CTRL=C AGAIN 


e¥" 
Rw 
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CVVTCA. SRC -JAN-81 10:36 SAVE REGISTERS SEQ 0085 

K%26 > -SBTTL SAVE REGISTERS 
3427 ; 
399 3 

$6 3 DESCRIPTION: 
3431 3 
see é . r . . - P “ 
%43. ; ROUTINE TO SAVE ALL THE GENERAL PURPOSE 
434 $ REGISTERS ON THE STACK, AND LEAVE THE ADDRESS OF THE 
%435 3 CALLING ROUTINE ON THE STACK. THE ROUTINE WILL RUN AT 
a8 : PRIORITY 7 TO AVOID ANY INTERRUPTS 
3438 3 
%439 ; CALLING SEQUENCE: 
3440 $ 
3441 ; JSR PC, SAVREG 
3442 5 
3443 3 INPUT PARAMETERS: 
3444 ; 
3445 3 NONE 
3446 ; 
3447 : 
ser 4 3 IMPLICIT INPUT PARAMETERS: 
3450 ; NONE 
3451 : 
3452 3 
Sez 3 OUTPUT PARAMETERS: 
3455 5 REGISTERS 0 THRU 5 ARE SAVED ON THE STACK -. 
456 3 AND THE RETURN ADDRESS OF THE CALLING ROUTINE IS 
3457 : SET AS THE LAST ENTRY ON THE STACK 
3458 ; 
3459 : 
3460 : 
3461 ; IMPLICIT OUTPUT PARAMETERS: 
3463 ; NONE 
3464 ; 
3465 : 
3466 3 COMPLETION CODES: 
3467 : 
3468 ; NONE 
3469 : 
3470 ; 
3471 Z POSSIBLE ERROR CODES: 
s76 3 
4 3 
3474 3 NONE 
358 
3477 013740 012637 007524 SAVREG: MOV (SP) +, SAVPC ;SAVE PC FOR RETURN FROM THIS ROUTINE 
3478 013744 012637 007526 (SP) +, SAVPC1 
479 013750 010546 MOV R5,-(SP) 

013752 910446 R4,~-(SP) 

3481 013754 010346 MOV ~~ (SP) 


| 
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01 0246 

Sis gue 
see § 

13764 013746 007526 
013770 013746 007524 
013774 000207 


Seeees 


MACY11 30A(1052) O8=JAN-81 10:58 PAGE 5251 


SAVE REGISTERS 


MOV ab 
MOV R1,-(SP 

“OV RO =P) 
MOV SAVPC’ ,=(SP) 
a4 SAVPC ,=(SP) 


PUT PC READY FOR 
ETURN 


SEQ 0086 


J 
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~~ CVVTCA.SRC ~JAN-81 10:36 RESTORE REGISTERS SEQ 0087 
| 38 -SBTTL RESTORE REGISTERS 

94 
_ 3495 

38 DESCRIPTION: 

98 RESTORE TO RESTORE THE GENERAL PURPOSE 

REGISTERS. THE STACK IS LEFT IN THE SAME STATE AS IT 
500 WAS WHEN SAVREG WAS CALLED. 


CALLING SEQUENCE: 
JSR PC ,RSTREG 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUT PARAMETERS: 
NONE 


OUTPUT PARAMETERS: 
RO THRU RS RESTORED 


IMPLICIT OUTPUT PARAMETERS: 
NONE 


COMPLETION CODES: 


Be Be Be Be Be Be Be Be Be Be Ge Be Be Be Be Be Be Se Fe Fe Be Be Fe Se Se Be Be Ge Be Be Ge Be Be Se Be Be Ge Be 


, NONE 
3537 ; 

538 013776 012637 007524 RSTREG: MOV (SP) +, SAVP 
539 014002 012637 007526 MOV (SP) +, SAVPC1 
014006 01 MOV (SP)+,RO 
014010 012601 MOV (SP)+,R1 
914012 1 MOV (SP)+.R 
14014 01 MOV (SP) +. 
014016 01 MOV (SP) +.R4 

O1ce i 74 007526 MOV acl ocsp) 
014026 013746 007524 MOV SAVPC,, =(SP) ;PUT PC READY FOR 





[——-—— ---- -—----- -  e 
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CVWVTCA.SRC JAN-81 10: RESTORE REGISTERS SEQ 0088 


| 
| 
| 3548 014032 000207 RTS = PC ;RETURN 


| 
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ENTER AN OCTAL NUMBER 


-SBTTL ENTER AN OCTAL NUMBER 


DESCRIPTION: 


ROUT INE M4 ENTER AN OCTAL fag ON THE CONSOLE. 
VALUE RAND 


THE NUMBER ENTERED IS po Age IN _RO, THE V. 
it. SET TO NON ZERO IF ANY CHARACTERS WERE ENTERED. 
PING CARRIAGE + Pag” us FEED OR ESCAPE WILL 


A *!* WILL - PRINTED } 4 AN OVERFLOW CONDITION IS 
DETECTED AND A '?" IF AN INVALID CHARACTER WAS 
ENTERED. 
CALLING SEQUENCE : 

JSR PC,OCTIN 
INPUT PARAMETERS: 

NONE 


IMPLICIT INPUT PARAMETERS: 
NONE 


OUTPUT PARAMETERS: 
RO CONTAINS THE NUMBER ENTERED. 
RAND=0 IF NO CHARACTERS WERE ENTERED. 
IMPLICIT OUTPUT PARAMETERS: 
NONE 


COMPLETION CODES: 
NONE 


POSSIBLE ERROR CODES: 
NONE 





SEQ 0089 
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CWICA, 10:36 R AN OCTAL SEQ 0090. 
7 ; 
14034 7 013740 OCTIN: JSR PC, SAVREG :SAVE THE REGISTERS 
10 01 5 TYPOTB: CLR [CLEAR RO 
11 01 7532 CLR RAND ;CLEAR FLAG WORD 
iF 1 12737 007 907604 MOV #OCTMSG STRADD ; SET START ADDRESS OF STRING 
13 01 10737 7606 MOV STRLEN + AND ITS SIZE 
14 01 1 007610 MOV 506° LOWCHR ; MINIMUM CHAR 
15 0140 1 7? 007612 MOV #67. UPPCHR ; MAXIMUM CHAR 
3616 1407 $02 CLR CNVFLG ; DON'T CONVERT TO UPPER CASE 
17 0141 14232 - JSR PC,GETSIR + GET A STRING 
18 0141 13701 007606 MOV STALEN,R1 ¢ ZERO LENGTH ? 
19 01411 14 BEQ - TYPOTD : YES 
14114 01 007256 MOV #OCTMSG,R2 : NO GET START ADDRES OF STRING 
1 9141 11 20 TYPOTC: MOVB = (R2)+_R$ ; GET A CHARACTER 
3002 14122 162703 000060 SUB RS + PUT IN 
0141 41 CLC 
3604 0141 ASL RO : SHIFT OUT RESULT 
abate eo re oe ha moe 
355 ore18e ets BCS TYPOTE : C BIT ERROR 
3628 914140 006300 L RO : TIMES 
3629 0141 BIS R3,RO : SET NEW BITS IN 
014144 007532 NC RAND : SET GOOD 
331 014150 1 DEC R1 
3632 014152 001 TYPOTC ; LOOP IF MORE TO COME 
014154 010037 007530 TYPOTD: MOV RO, TYPO + SAVE FINAL NUMBER 
3634 014160 904 013776 JSR PC -RSTREG + RESTORE REGISTERS 
8 O14164 13700 007530 MOV TYPOTA, : GET RESULT 
3636 141 900207 RTS PC 
014172 O12 1 TYPOTE: MOV #41,RO : OVERFLOW | 
3638 014176 004737 015012 , JSR PC,PCHR : PRINT A ! | 
3639 014202 000137 014040 JMP TY : THEN GO AGAIN 
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BEPERERES 


014 105737 

14212 100375 

Ly 14 01 709 

2 014224 73 
3692 014250 000207 


macy SOACIOSE) 
10:36 


177560 
177562 
177600 
015012 
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A SINGLE CHARACTER 


-SBTTL READ A SINGLE CHARACTER 


DESCRIPTION: 
ROUTINE TO READ A SINGLE CHARACTER 
FROM THE CONSOLE. THE CHARACTER IS RETURN IN RO 
AND HAS THE BIT STRIPPED OFF. 
CALLING SEQUENCE: 
JSR PC READ 
INPUT PARAMETERS: 


NONE 


IMPLICIT INPUT PARAMETERS: 
NONE 


OUTPUT PARAMETERS: 
RO CONTAINS THE CHARACTER READ IN. 


IMPLICIT OUTPUT PARAMETERS: 
THE CHARACTER IS ECHOED ON THE TERMINAL 


COMPLETION CODES: 
NONE 


POSSIBLE ERROR CODES: 
NONE 


READ: STB TKS 
BPL 


MOV TKB,RO 
BIC #179600 RO 


SEQ 0091 


8 
VTV30K tae) | C MACY11 30A(1052) O8-JAN-81 10:58 PAGE 56 | 
CWTCA.SR ~JAN-81 10:36 ENTERING A CHARACTER STRING SEQ 0092 


-SBTTL ENTERING A CHARACTER STRING 


96 ; 
97 ; 
98 t DESCRIPTION: 
: ROUTINE TO ENTER A STRING OF CHARACTERS ON 
1 : THE CONSOLE TERMINAL. VARIOUS CONTROI topes 
; ARE USED TO CONTROL HOW THE CHARACTERS ARE 
: INTERPTETED: 
3705 : CAPE, CARRIAGE RETURN AND LINE ufEeD oe USED 
3706 ; TO TERMINATE THE STRING. RUBOUT W LET 
7 : T CHARACTER ENTERED, CNTRL-U watt PEL ETE THE 
3708 : ALL THE C TERS ENTERED, AND CNTRI-R WILL ECHO | 
3709 : THOSE CHARACTERS ALREADY ENTERED. | 
3711 : ON ENTRY THE FOLLOWING POINTERS ARE USED: 
3712 : STRADD TO INDICATE THE START OF THE CHARACTER STRING 
3 : STRLEN TO INDICATE ITS SIZE 
3714 : CVNFLG SET TO RT LOWER ¢ 
3715 ; UPPCHR TO INDICATE THE HIGHEST CHARACTER CODE 
3515 : LOWCHR TO INDICATE THE LOWEST CHARACTER CODE 
3718 : ON EXIT THE LOCATION STRLEN WILL INDICATE THE 
3719 : NUMBER OF CHARACTERS ENTERED AND RANDC WILL CONTAIN 
3720 : THE TERMINATING CHARACTER 
3722 : IF AN INVALID CHARACTER WAS HIT A '?° IS PRINTED 
3724 : 
3725 t CALLING SEQUENCE: 
3726 § 
3727 : JSR PC,GETSTR 
3728 : 
3729 : 
3530 * INPUT PARAMETERS: 
3732 : STRADD THE START ADDRESS OF THE STRING 
3733 : STRLEN THE NUMBER OF CHARACTERS TO READ 
3734 : UPPCHR THE HIGHEST CHARACTER CODE ALLOWED 
3735 : LOWCHR THE LOWEST CHARACTER CODE ALLOWED | 
3536 ; CNVFLG TO INDICATE LOWER TO UPPER CASE CONVERSION 
$504 t IMPLICIT INPUT PARAMETERS: 
374 : NONE 
374 : 
3744 5 
3745 + OUTPUT PARAMETERS: 
3747 : STRLEN THE NUMBERS OF CHARACTERS READ 
3748 : RANDC THE TERMINATING CHARACTER 
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013740 
007614 
007604 
177560 
177562 
177600 


000015 


014656 
000012 


014656 
000033 


00177 


14504 
22 


600028 


014552 


000140 


08-JAN-81 


Be Se Se Be Fe Ge Be Se Be Be Se Be Se Ge Se Se Ge Ge Ge Ge 


GETSTR: 
GETCH1: 


GETCH2: 


CHECK 


1$: 


5$: 


; IT WAS NOT A 


NONE 


A ‘2° IS PRINTED IF AN INVALID CHARACTER IS ENTERED 


JSR 
CER 


CLR 
TSTB 


ase 


TF bb nhl bat $ 


+ FOR LEGALITY 





C 
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ENTERING A CHARACTER STRING 


IMPLICIT OUTPUT PARAMETERS: 
COMPELETION CODES: 


POSSIBLE ERROR CONDITIONS: 


PC, SAVREG 
RUBFL 
att 


TKB,RO 


#177600,RO 
CONTROL CODES 


RO,#15 
1$ 


CHRF IN 
RO,#12 


CHRF IN 


hee CODE CHECK 


RO,4140 
3$ 


zSAVE REGISTERS 
EAR 


RUBOUT FLAG 
ARTING An 


GET STAR 
po hh LENGTH 


; CLEAR RUBBISH 


WAS IT <CR> ? 
NO 

WAS IT <LF> 
NO 

WAS IT <ESC> 
NO 

RUBOUT ? 

NO 

YES 

CNTRL-R 

NO 

YES EXCO LINE 
CNTRL-U 


NO 
YES DELETE LINE 


IS IT LOWER CASE 
NO 


SEQ 0093 


8 
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VTV30K DIAGNOS 
CWTCA. SRC 10:36 ENTERING A CHARACTER STRING SEQ 0094 
7 014 007602 TST GNVFLG : YES DO WE CONVERT TO UPPER 
14374 BEQ : 
14 900049 BIC #40,R0 + YES STRIP 40 OFF 
10 i 7610 3$: cme RO. LOWCHR + IS THE CHAR TOO SMALL 
iF 01441 014636 JMP ILLCHR : YES 
13 01441 7612 5S: CMP UPPCHR + IS THE CHAR TOO BIG ? 
14 01 BLE GET CHS + NO 
3813 014422 014636 JMP ILLCHR : YES ITS ILLEGAL 
3817 WE HAVE A LEGAL CHARACTER 
3819 014426 910005 GETCH4: MOV RO.R3 : SAVE CHAR 
3820 014430 005 007614 TST RUBFLG + IS RUBOUT SET 
1 01443 001406 BEQ 3$ ; 
14436 012 000057 MOV #57,RO : YES PRINT A ‘/* 
14442 006737 015012 JSR PC,PCHR 
3894 01 005037 007614 CLR RUBFLG : CLEAR RUBOUT FLAG 
3825 014452 005201 3$: INC R1 : UPDATE CHAR COUNT 
3826 014454 020137 007606 CMP R1,STRLEN : END OF STRING SEEN 
7 014460 003403 BLE 5$ : NO 
3828 014462 oN <LR RO : YES, FORCE A NULL TERMINATOR 
329 014464 000137 014656 JMP CHRF IN + AND’ COMPLETE 
0144 10300 5$: MOV R3,RO + RESTORE CHAR 
3831 0144 737 015012 JSR PC.PCHR + ECHO IT 
3832 014476 110022 MOVB RO. (R2)+ : SAVE IT IN BUFFER 
014500 000137 014250 JMP GETCH2 : NO GET NEXT ONE 
a5 RUBOUT WAS HIT 
3837 014504 005701 RUBCHR: TST R1 3; ANY CHARACTERS TO RUBOUT 
3838 014506 001 BNE : YES 
3839 014510 000137 014572 JMP LINDL1 + NO 
3840 014514 3$: TST RUBFLG t IS RUBOUT SET ALREADY ? 
3841 014520 001006 BNE 5$ :Y 
384¢ 014 912700 000057 MOV #57,RO : NO PRINT A '/* 
3843 0145 015012 JSR PC,PCHR 
3844 014 005 007614 INC RUBFLG : SET RUBOUT 
3845 014536 114 5$: MOVB -(R2),RO : GET LAST CHAR ENTERED 
3846 014540 004 015012 JSR PC.PCHR : PRINT IT 
3847 014544 005301 DEC RI : REDUCE COUNT 
348 014546 000137 014250 JMP GETCH2 + GET ANOTHER CHAR 
30 ; : RUBOUT LINE WAS HIT 
52 014552 912700 000136 LINDEL: MOV #136,RO : PRINT A * 
3853 014556 004 015012 JSR PC_PCHR 
3854 014562 012 000125 MOV #125, RO : THEN U 
3855 014566 004 015012 JSR PC,PCHR 
56 014572 004737 014700 LINDL1: JSR PC. CRLF > START ON A NEWLINE 
4 014576 000137 014236 JMP GETCHI + A GO BACK TO BEGINNING 
; CNTRL-R WAS HIT 
LINECH: MOVB = #"@, (R2) ; PUT IN A TERMINATOR 
JSR PC, CRLF + START ON A NEW LINE 





cc 
VTV30K DIAGNOSTIC 





3863 01461 ot 737 
gt 037 
5 01 7 
01 
7 01 0001 
3868 


3570 
3570 
71 014636 004737 
BAG 014642 012 
014646 004 
3874 014652 000137 
3875 
3876 
3877 


MACY11 30A(1052) 
CVVTCA. SRC JAN-81 10:36 


SO 7608 014630 
14734 
014250 


01 206 
00007 

015012 
014602 


007616 
007604 


007606 
013776 


O8-JAN-81 10:58 PAGE S6= Ne 


ENTERING A CHARACTER ST 
MOV STRADD ,3$ 
R RUBF LG 


CL L 

JSR PC, TYPOUT 
3$: 0 

JMP GETCH2 


+ ILLEGAL CHARACTER ENTERED 


ILLCHR: JSR PC,PCHR 
MOV #°?,RO 


: A TERMINATOR WAS FOUND 


CHRFIN: MOV 
SUB Kao Re 
MOV aa STRLEN 
JSR PC. *RSTREG 





SET START ADDRESS 
CLEAR RUBOUTS 


; PRINT LINE 


AND GET ANOTHER CHAR 


ECHO IT 
PRINT A ? 


THE ECHO LINE 


SAVE TERMINATOR 
CALCULATE BYTE COUNT 
SET_IT FOR RETURN 
RESTORE REGISTERS 
AND EXIT 


SEQ 0095 


 eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeEeEEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeeeeee eee 


F 
| VTV30K DIAGNOSTIC MACY11 30A(1052) O8-JAN-81_ 10:58 PAGE 57 
CVWVTCA.SRC 08-JAN-81 10:36 CARRIAGE RETURN LINE FEED SEQ 0096 


~-SBTTL CARRIAGE RETURN LINE FEED 


DESCRIPTION: 
renee A a DO A <CR> <LF> ON THE 
CALLING SEQUENCE: 
JSR PC,CRLF 
INPUT PARAMETERS: 


PCPSPRE SRR ESL 1314 


NONE 
3903 ; IMPLICIT INPUT PARAMETERS: 
3908 ; NONE 
a : 
3908 : OUTPUT PARAMETERS: 
3909 3 
3910 ; NONE 
2 | 
3913 : IMPLICIT OUTPUT PARAMETERS: 
3915 ; THE CARRIAGE WILL BE PLACED ON A NEW LINE 
3917 : 
3918 : COMPLETION CODES: 
3359 
3923 : POSSIBLE ERROR CODES: 
3926 : 
3927 ; 
es : 
3930 014700 01 CRLF: MOV RO,-(SP) 
3931 014702 912700 000015 MOV #15,RO :PRINT A RETURN - LINE FEED 
32 014706 004737 015012 JSR PC,PCHR 
3933 01471 905000 CLR RO DUMMY 
34 014714 004 915012 JSR PC,PCHR 
35 014 912700 00001 MOV #12,R 
39 b14980 oyd600 mov CSB) SRO 
Y 
38 014732 900 at 


sug 
3 
c 


yvonne DIAGNOST 
VWVTCA.SRC 


3940 


C 
~JAN-81 10 


MACY11 ee nike te 10:58 PAGE 5721 
0:36 GE RETURN LINE FEED 


SEQ 0097 


——— eee 


i me 


H 
VTV30K DIAGNOSTIC 99 Oh 30A (1052) salut on fa 10:58 PAGE 58 


CWTCA.SRC 08-JAN-81 10:36 T AN ASCII MESSAGE SEQ 0098 
ar -SBTTL PRINT AN ASCII MESSAGE 

3944 3 

3945 3 

$008 ; DESCRIPTION: 

3948 3 ROUTINE TO PRINT A STRING OF ASCII 
a § CHARACTERS ON THE CONSOLE TERMINAL. CERTAIN 
0 ; CHARACTERS WITHIN THE STRING ARE INTERPRETED 
ped ; AS CONTROL CODES, THESE ARE: 
395 3 133 (0) WILL GENERATE A <CR>,<LF> 
tore 3 100 (@) WILL SIGNIFY END OF MESSAGE 
3956 ; THE ADDRESS OF THE MESSAGE STRING TO BE PRINTED - = 
3957 ; WILL BE HELD IN THE LOCATION FOLLOWING THE CALL 
3958 ; TO THE ROUTINE, IE: 
3959 $ 
3960 ; JSR PC, TYPOUT 
3961 3 ADDR 
3962 ; 
3963 3 
3964 3 
3965 ; CALLING SEQUENCE: 
3966 : 
3967 ; JSR PC, TYPOUT 
3968 3 
1424 ‘4 INPUT PARAMETERS: 
3971 - ; THE ADDRESS OF THE MESSAGE STRING FOLLOWS 
3972 s THE SUBROUTINE CALL. 
3973 : 
3974 : 
a : IMPLICIT INPUT PARAMETERS: 
3977 ; NONE 
3978 3 
3979 ; 
3980 : OUTPUT PARAMETERS: 
3981 : 
3982 3 NONE 
3983 : 
3984 : 
5 ; IMPLICIT OUTPUT PARAMETERS: 
3987 3 THE SPECIFIED MESSAGE WILL BE PRINTED 
3989 : 
3990 5 COMPLETION CODES: 
3991 : 
3992 : NONE 
3993 : 
3994 : 
44) 3 POSSIBLE ERROR CODES: 
3997 ; NONE 


r —_ — i 


I 
MACY11 30A(1052) O8-JAN-81 10:58 PAGE 58-1 


VTV30K DIAGNOSTIC 
CWICA.SRC ~JAN-81 10:36 PRINT AN ASCII MESSAGE SEQ 0099 
| 3998 : 
| Bee : 
4001 014754 004737 013740 TYPOUT: JSR PC SAVREG :SAVE REGS 
400¢ 14740 017601 000000 MOV a(SP),R1 [R1 POINTS AT STRING 
014744 062716 000002 ADD #2, (SP) : JUMPS OVER ARGUMENT 
4004 014750 111100 PMSG1: MOVB  afi.RO SPRINT THE MESSAGE POINTED 
4005 O1475¢ 922 000100 CMP Orn RO [TO BY R17 UNTIL @, WHICH IS END. 
4006 014 41 BEQ rss, *C MEANS CR-LF 
4007 014760 Qee 000133 CMP 3 RO 
4008 014764 199 BNE 
4009 014766 004737 014700 JSR ad Ge 
4010 014 900402 BR pMsG3 
4011 014774 004 015012 pMsGe: J PC.PCHR 
4012 015000 005201 PMSG3: INC RI 
4013 015002 0007 PMSG1 
4014 015004 004737 013776 PMSG4: JSR PC,.RSTREG ;RESTORE REGS 
4015 015010 000207 RTS PC 





VTV30K 
CvvT 


DIAGNOSTIC 98 30A(1052) 
10:36 


CA. SRC 08-JAN-81 


015012 004737 013276 
015016 010037 177566 
015022 000207 


Were. & BeBe Be Se Be Be Be Be Be Be Be Ge Be Be Be Be Be Be Se Be Be Be Fe Ge Be Be Ge Se Be Ge Ge Be Be Se Be Be Be Be Fe Be Se 


J 
palit 5 ce 19:88 PAGE 59 


T A CHARACT 


.SBTTL PRINT A CHARACTER 


DESCRIPTION: 
CONSOLE." RO CONTAINS THE CHARACTER TO BE PRINTED 
CALLING SEQUENCE : 
JSR PC,.PCHR 
INPUT PARAMETERS: 
RO CONTAINS THE CHARACTER TO BE PRINTED 


IMPLICIT INPUT PARAMETERS: 
NONE 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUT PARAMETERS: 
THE CHARACTER SELECTED WILL BE PRINTED 


COMPLETION CODES: 
NONE 


POSSIBLE ERROR CODES: 
NONE 

JSR PC, TPREDY PRINTER READY 

asf RO, TPB 





SEQ 0100 


-- 


VTV30K DIAGNOSTIC 


macy 30A(1052) 
10:36 


tae 2 10:58 PAGE 60" 
NUMBER 


| CWTCA PRINT AN OCTAL 
4066 -SBTTL PRINT AN OCTAL NUMBER 
4067 3 
4068 3 
4069 3 
peta 3 DESCRIPTION: 
407 3 ROUT INE Iv I tag AN OCTAL NUMBER ON 
40 3 THE CONSOLE TERM RO CONTAINS THE BINARY 
4074 3 REPRESENTATION oN ‘7 NUMBER THAT IS TO BE 
4075 3 PRINTED. : 
4076 3 
4077 ; CALLING SEQUENCE: 
4078 ; 
4079 ; JSR PC,PROCT 
4080 : 
4081 ; INPUT PARAMETERS: 
4083 3 RO CONTAINS THE NUMBER THAT IS TO BE 
4084 3 PRINTED 
4085 ; 
4086 3 
4087 5 IMPLICIT INPUT PARAMETERS: 
4088 3 NONE 
4089 ; 
4090 ; 
4091 3 
4092 3 OUTPUT PARAMETERS: 
4093 3 
4094 ; NONE 
4095 3 
4096 3 
4097 3 IMPLICIT OUTPUT PARAMETERS: 
ps4 3 THE NUMBER SPECIFIED WILL BE PRINTED 
4101 ; 
4102 ; COMPLETION CODES: 
4103 5 
104 : NONE 
4105 $ 
4106 $ 
4107 3 POSSIBLE ERROR CODES: 
4108 3 
4109 3 NONE 
4110 3 
4111 3 
sig ° 
411 oi 3085 PROCT: JSR PC, ye SAVE REGS 
4114 0150 72 MOV #OCTNLA ;POINTER TO MESSAGE 
tie 18040 O201S7 Gorote — a Can tome eS 
a119 15044 0013 BNE Rt FOC TNL :NO 
4118 01 41 PRCTIA: CLC joe AT START 
4119 01 1 PROCT2: MOV mi ae © 
4120 01505 177770 BIC i? 20. R "TCLEAR ALL BUT BOTTOM 3 BITS 
4121 015056 702 000060 ADD NOW ASCII 





Cc 
1S U8 coca 
1 
1 


3 
01507 
0151 7 
01 2) 004 014734 
0151 
0151 
0151 


013776 


4137 

4138 015116 004737 013740 
4139 015122 042700 177000 
4140 0151 4 012737 002040 
4141 0151 012737 040040 
4142 015142 012701 007233 
fier 015146 000737 


MACY11 30A(1052) 
10:36 PR 


PROCT3: 


L 
O8-JAN-81_ 10:58 PAGE 60-1 
INT AN OCTAL NUMBER 


MOVB phe zSTORE IT _IN vita 
BIC #7 RO NOW CLEAR BOTTOM 5 BITS 
BEQ PROCT 3 DONE 

ROR Re sROTATE NEXT 3 BITS 

ROR R 

ROR 

BR PROCT2 GO DO NEXT 

JSR PC, TYPOUT TYPE MESSAGE 

OC TNUM sMESSAGE ADD. 

+ — sRESTORE REGS 


ROUTINE TO PRINT LEAST SIG.9 BITS OF RO 


JSR PC, SAVREG 
BIC #177000,RO ZCLEAR UNWANTER 
MOV #2040,0CTNUM — :SET UP MESSAGE 
MOV #4004 OC TNUM+2 ‘WITH END CODE 
MOV WOCTNUM+3,R1 | :& POINTER 
PRCTIA MAIN ROUTINE 


JUMP INTO 
sWITH POINTERS SET UP 


SEQ 0102 


| ram » DIAGNOSTIC MACY11 30A(1052) 08-JAN-81 10:58 PAGE 6" 


é VVTCA.SRC -JAN-81 10:36 ENTER A DECIMAL NUMBER SEQ 0103 

pape -SBTTL ENTER A DECIMAL NUMBER 

4148 3 

4149 3 
clay ; DESCRIPTION: 

415 3 ROUTINE TO ENTER A DECIMAL NUMBER ON 

415 $ THE CONSOLE TERMINAL. RO WILL CONTAIN THE Boe 

4154 5 ENTERED AS A BINARY VALUE. RAND WILL BE NON ZERO 

4155 ; IF ANY CHARACTERS READ IN. THE INCOMING STRING 
4156 3 CAN BE TERMI OR <ESC>. 
4157 3 TYPING CNTRL“U WILL DELETE ALL CHARACTERS eee 
4158 g CNTRL=R WI'L ECHO THE CHARACTERS ENTERED AND RUBOUT 
ret +4 5 WILL DELETE THE LAST CHARACTER ENTERED 
4161 3 
4162 3 CALLING SEQUENCE: 
4163 ; 
4164 ; JSR PC, TYPDEC 
4165 3 
4166 ; INPUT PARAMETERS: 
4167 3 
4168 5 NONE 
4169 ; 
4170 ; 
rita 3 IMPLICIT INPUT PARAMETERS: 
4173 ; NONE 
4174 3 
4175 ; 
21% 3 OUTPUT PARAMETERS: 
4178 3 RO CONTAINS THE BINARY iy tone le 
4179 ; OF THE DECIMAL NUMBER ENTERED RAND WILL 
cin 3 INDICATE WHETHER ANY CHARACTERS tex HAVE BEEN ENTERED. 
4182 3 
aint 3 IMPLICIT OUTPUT PARAMETERS: 
4185 5 NONE 
186 $ 
4187 ; 
4188 ; COMPLETION CODES: 
4189 ; 
4190 3 NONE 
4191 3 
419 3 
419 2 POSSIBLE ERROR CODES: 
‘Ie | wre 
4196 3 
i ; 
4199 015150 004737 013740 TYPDEC: JSR PC, SAVREG ;SAVE REGISTERS 
4200 015154 905 TPDEC1: CLR RO 
4201 015156 ;CLEAR INDICATOR 








ao 





N 8 
VTV30K DIAGNOSTIC MACY11 30A(1052) O8-JAN-81 10:58 PAGE 61-1 
WiCA. SRC JAN-81 10:36 ENTER A DECIMAL NUMBER SEQ 0104 
1 $2 1 MOV WDECMSG,STRADD ; SET START ADDRESS 
1 MOV #5, STRLEN + ONLY 5 CHARS 
15176 1 et MOV 06h, HR + MINIMUM CHAR 
1 1 re MOV #71 ,UPPCHR : 
1 CLR + DON'T CONVERT TO UPPER 
4207 1 14 JSR PC,GETSTR + GET A STRING 
1 13 7 MOV STRLEN,R4 : T IN 
4209 01 4 BEQ TPDE 32 ANS C TE 
10 01 1 007250 MOV ADECMSG,R2 + POINT TO STRING 
11 01 112201 TPDEC2: MOVB = (R2) +, Ri + GET A CHARACTE 
12 1 41 CLC 
el 1 ASL RO ; RESULT TIMES 2 
14 01 10341 BCS TPMEC3 * C BIT SET MEANS ERROR 
4215 01 910905 RS + ASVE IT 
4216 1 ASL RO : TIMES 4 
4217 01 103410 BCS TPDEC3 + C BIT MEANS ERROR 
4218 01 006300 ASL : TIMES 8 
4219 01 103406 BCs TRDECS t C BIT MEANS OVERF 
4220 01 060300 ADD + ADD IN TO BE VIMES es 
4221 015 103404 BCS TPbECS + C BIT MEANS ERROR 
4222 015262 701 177760 BIC Hi 7760, R1 : CLEAR UNWANTED BITS 
1358 015, 100 + ADD IN NEW VALUE 
4226 015 79 103006 cc TPbECS : C BIT 
4225 01 12 1 TPDEC3: MOV 1,RO + OVERFLOW PRINT A ! 
4226 015276 015012 JSR oy PCHR 
4227 015 137 015154 JPP TPDEC1 : GO BAK TO START 
4228 015306 005 007532 TPDEC4: INC t SET CHAR SEEN 
4229 015312 005 DEC 4 : E COUNT 
30 015314 001347 BNE TPDEC2 : ZERO 
4231 015316 010037 0075 TPDECS: MOV : ALL SA 
15322 004 013776 JSR PC ZASTREG + RESTORE REGISTERS 
42 15326 013700 007534 MOV TYPD1R + RES RE 
4234 015332 000 RTS + AND EXIT 


| 9 
VTV30K DIAGNOSTIC mr 30A(1052) 
CVVTCA.SRC ~JAN-81 10:36 NUMBER 


005400 
4271 015342 112737 000055 007240 
000403 


4273 

pita} 015352 112737 000040 007240 
013740 

007241 


007246 





08-JAN-81 


BeBe Se Be Be Se Se Be Be Be Be Be Se Se Ge Se Se Se Se Be Be Se Se 


Se Be Be Be Be Be Be 


BASM10: 


BASE10: 
BAS10A: 
BASE1A: 


BASE 1D: 


10:58 PAGE 62° 
PRINT A DECIMAL 





-SBTTL PRINT A DECIMAL NUMBER 


DESCRIPTION: 
ROUTINE TO PRINT A SIGNED OR UNSIGNED 


DECIMAL NUMBER ON THE CONSOLE. RO HOLDS THE 
NUMBER TO BE PRINTED. 
CALLING SEQUENCE: 
JSR PC ,BASE10 : FOR UNSIGNED 
JSR PC;BASM10 : FOR SIGNED 


INPUT PARAMETERS: 
RO HOLDS THE NUMBER TO BE PRINTED 


IMPLICIT INPUT PARAMETERS: 
NONE . 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUT PARAMETERS 
THE NUMBER 


IN RO 1S PRINTED. 


COMPLETION CODES: 
NONE 


POSSIBLE ERROR CODES: 
NONE 


BASE1B: CMP 


BASE1C: 


RO 
BASE10 


#55 ,.BASE11 
BASI0A 


GET SIGN OF RO 
POSITIVE... 

IF MINUS MAKE POSITIVE... 
AND PRINT '-' 

THEN CONTINUE. . 


PRINT LEADING SPACE 


; NOW SAVE 


OL GS.. 
SETUP OUTPUT POINTER. 
4 oe aaa WITH SPACES. 


R1 IS RECEIVER... 
MORE THAN 10? . 


YES IF BRANCH 
; DIV BY REPEAT SUB 


TALLY COUNT 
DO 


MAKE INTO NUMBER 
SAVE IN STRING 


| 


dt DIAGNOST MACY11 30A(1052) yl 10:58 PAGE 6241 


CA. SRC JAN-81 10:36 PRINT A DECIMAL NUMBER SEQ 0106 
Re: oi BNE BASE 1D 
JSR PC,,RSTREG ; RESTORE REGISTERS... 
ie 12558 JSR C,TYPOUT : TYPE MESSAGE 
oi 54d BASE11 : TH eee 
ie 015446 RTS PC ; AND EXIT 


be 





D 
VTV30K DIAGNOST 98 Oy 30A(1052) alist Ge 10:58 PAGE 63 


CVVTCA.SRC < JAN-81 10:36 MODIFY THE PROGRAM SEQ 0107 
-SBTTL MODIFY THE PROGRAM 
6860 | 
6308 DESCRIPTION: 
oe ROUTINE TO MODIFY A LOCATION IN MEMORY 


ENTERED BY TYPING CNTRL-O ON THE CONSOLE 
TERMINAL . 


PROMPTS ($) FOR AN ADDRESS TO EXAMINE 
AND PRINTS IT IN THE FORM 


ADDR CONTENTS ,’ 

THEN A NEW VALUE CAN BE ENTERED 
VIS: 

ADDR CONTENTS / NEW VALUE 


THE NEW VALUE CAN BE TERMINATED USING 
<CR>, <LF> , OR <ESC> 


<LF> TO EXAMINE THE NEXT LOC 
<CR> TO SELECT ANOTHER ADDRESS 
<ESC> TO EXIT 


CALLING SEQUENCE: 

JSR PC MODIFY 
INPUT PARAMETERS: 

NONE 


IMPLICIT INPUT PARAMETERS: 

ENTERED BY TYPING CNTRL-O DURING 
THE RUNNING OF THE TESTS 
OUTPUT PARAMETERS: 

NONE 


Be Be Be Be Be Be Be Be Be Fe Be Be Se Se Be Fe Fe Fe Be Se Ge Be Ge Be Be Fe Be Be Se Be Be Be Be Se Fi Se Be Be Se Be Be Be Fe Ge Ge Ge Fe Se Ge Fe Se Be Fe Se Ge 








VTV30K DIAGNOSTIC 


Ww 
Ww 
Ww 


756 
012737 016354 
000340 


4381 
43835 
4385 
4387 

015 007544 
4389 015 005 171746 
4390 015 737 007544 
eee 015574 im} 
2398 
4395 
4396 
4397 


CVWVTCA. SRC 08-JAN-81 10:36 
4356 
4357 
4358 
4359 
4360 
8 
c368 
4365 
4366 
4367 
4368 
4369 
4370 
4371 
4326 015450 004737 013740 
4 015454 
4374 015464 
4375 015500 004737 014734 
4376 015504 006635 
4377 015506 004737 014034 
4378 015512 005737 007532 
4379 015516 001 
4380 0155 01 007536 
0155 032 000001 
4 0155. 001 
015534 004737 014734 
4384 01 
| 398 8 
4 1 
4399 01 
4400 01 
i ee Gre te 
015650 001402 
4404 Ot a63¢ 8190 171660 
4405 156. 013700 007616 
4406 o13e28 ita. 
4407 01 000015 
4408 015670 1703 
4409 015672 Boner 000012 
4410 015676 1006 


macy 30A(1052) 


007536 


08-JAN-81 
MODIFY THE 


i Be Be Be Be Be Be Be Be Se Be Be Be Be Be Ss Be 
ba 
wn 
< 


g 


MODI2: 


MODI3: 


MODI4: 


E 
10:58 PAGE 63-1 
PROGRAM 


IMPLICIT OUTPUT PARAMETERS: 
THE LOCATIONS SPECIFIED WILL HAVE BEEN 


MODIFIED 


COMPLETION CODES: 


POSSIBLE ERROR CODES: 


NONE 


NONE 

PC, SAVREG 
MODSAV 
#340 

PC, TYPOUT 
PC,OCTIN 
RAND 
MODXIT 

71 MODADR 
PC, TYPOUT 


@MUDADR 
PC .PROCT 
PC; TYPOUT 


PC.OCTIN 


SAVE REGISTERS 


PROMPT $ FOR AN ADDRESS 
TO HAVE A LOOK AT 
READ REPL 


OUR ADDRESS 

;DOES IT EXIST 

NO TRY AGAIN 
START ON A NEW LINE 
PRINT OUR ADDRESS 
; THEN A_ SPACE 
AS_A SEPARATOR 
2 THEN PRINT THE CONTENTS 


PROMPT FOR THE NEW 
: CONTENTS w 


REPL 
TAY anes GIVEN 
DON'T UPDATE 


SEQ 0108 


. 
ven DIAGNOST MACY11 30A(1052) O8-JAN-81 10:58 PAGE 63-2 


CA.SRC c e-81 10:36 MODIFY THE PROGRAM SEQ 0109 
4411 015700 7 014700 JSR BC .CRLE + NEWLINE 
641 915704 7 000002 007536 ADD ys ADR [UPDATE THE ADDRESS BY 2 
441 1371¢ BR Mop 1 THEN TRY THIS ADDRESS 
4414 g1371 7 000033 MODIS: CMP RO, A IT EXIT 
4415 015 1 BEQ MODXIT YES SISSAPPEAR 
4416 015 912700 000077 MOV #77,RO TELSE GIVE A ? 
4417 015 004 015012 SR PC,PCHR TAS AN ERROR 
4418 015 751 BR 14 : THEN TRY AGAIN 
4419 015 012737 000006 000004 MODXIT: MOV #6,4 [PLUG BACK TRAP THRU 4 
4420 015742 012737 000004 000006 MOV #4.6 tWITH WHAT IS WAS 
4421 015750 004737 014700 PC; CRLF [PUT OURSELVES ON A NEW LINE 
4422 015754 PSWSET MODSAV 
4423 015770 004737 013776 JSR PC .RSTREG ;RESTORE REGISTERS 
4424 015774 000207 RTS PC [AND GO AWAY 


ee ea ee Ee eh oe RT AS 


G 
VTV30K DIAGNOSTIC MACY11 30A(1052) O8-JAN-81 10:58 PAGE 64 


CVVTCA.SRC O8-JAN-81 10:36 SELECT BUS ADDRESSES SEQ 0110 
4427 -SBTTL SELECT BUS ADDRESSES 
4428 Se. genie = PS 

4429 ; — —--* 

rh 3 DESCRIPTION: 

44 ; THIS ROUTINE PROMPTS THE OPERATOR FOR THE 
443 3 BUS ADDRESS OF THE FIRST VTV30K ON THE SYSTEM, AND ALSO 
44% ; THE NUMBER OF DEVICES THAT ARE ON THE SYSTEM. THE PROGIAM 
4435 : WILL ALLOW UP TO TWENTY (DECIMAL) DEVICES TO BE SELECTED, 
% 3 vee THE DEVICES MUST BE CONFIGURED IN ASCENDING ORDER. 
4437 5 FOR EXAMPLE: FIRST DEVICE WOULD AT 1XXxX00, 1XXx02, 
4438 : THEN THE SECOND ONE WOULD BE AT 1XXX10, AND 1XXx1i2, ETC. 
4440 : 
4441 5 CALLING SEQUENCE: 
4442 : 
4443 3 JSR PC,SELBUS 
4444 : 
4445 : 
4446 ; INPUT PARAMETERS: 
4447 : 
4448 s NONE 
4449 3 
4450 : 
rai tt ; IMPLICIT INPUT PARAMETERS: 
4453 3 NONE 
4454 : 
4455 : 
428 3 OUTPUT PARAMETERS: 
4458 ; THE Sgt yy OF THE CSR AND DATA BUFFERS SELECTED 
4459 : WILL BE LOADED O LOCATIONS FOLLOWING THE ADDRESS ‘‘CSRO'’. 
4460 ; THE LOCATION Poe veNTe IS SET TO SAY HOW MANY DEVICES WERE 
4461 y SELECTED. 
4462 s 
4463 3 
rere ; IMPLICIT OUTPUT PARAMETERS: 
4466 3 EACH OF THE ADDRESSES SELECTED ARE TESTED FOR NM, 
4467 ; AND AN ERROR Bg ee TED IF THE SELECTED ADDRESS 
4468 4 REPORTS AS NXM. ERROR FOR A NON EXISTANT CSR AND 76 FOR 
4469 ; THE DATA BUFFER. 
4470 : 
4471 : 
a : COMPLETION CODES: 
4474 : NONE 
4475 ; 
4476 ; 
pith ; POSSIBLE ERROR CODES: 
4479 ; ERROR 77 WILL OCCUR IF A SELECTED CSR IS NOT ON 
4480 ; THE BUS. ERROR 76 WILL OCCUR FOR A NON EXISTANT DATA BUFFER 
4481 : ADDRESS. SETTING TRAP+10 WILL LOOP ON THIS ADDRESS. 





VTV30K DIAGNOSTIC 


CVVTCA.SRC 08-JAN-81 
4483 
ie ers sas 
4486 16008 1s 7 
4487 016014 012737 
4488 ’ 7 
90 01 7 
ah ee 
Hs Sake Hoe 
4494 Q1 ? 
4495 01 
4496 016054 005700 
4497 01 003761 
4498 01 010037 
4499 016064 023727 
4500 016072 001406 
4501 016074 004737 
4502 016100 006144 
4503 016102 004737 
4504 016106 000775 
4505 
4506 
4507 
4508 016110 004737 
4509 016114 006653 
4510 016116 004737 
4511 016122 005737 
4512 0161 001004 
45135 0161 004737 
4514 0161 per es 
4515 01 iz 76 
4516 0161 032700 
4517 016144 1406 
4518 016146 737 
4519 016152 006707 
4520 016154 004737 
i) SEIS Sire 
is BEI San 
4524 016170 i's 14 
oes or 6174 ; 1 
452 16304 1 
4528 016212 005037 
4529 016216 005777 
4530 016222 005737 
$2e! 016226 001411 
45 
4534 
4535 
4536 


4537 016230 91373 
4538 016236 73 


7532 


100000 


000004 
000006 


000001 


007566 


007572 


SE 


SE 


1$: 


2$: 


3$: 


08-JAN-81 

LECT BUS ADDRESSES 

LBUS: CLR TESTNO 
JSR PC, SAVREG 
MOV ANXMTRP , 4 
MOV #340,6 
JSR PC, TYPOUT 
NUMDEV 
JSR PC, TYPDEC 
TST RAND 
BNE 2s 
MOV #1,RO0 
CMP RO,#20. 
BGT 1$ 
TST RO 
BLE 1$ 
MOV RO,DEVCNT 
CMP DEVCNT 41 
BEQ SE1 
JSR PC, TYPOUT 
GOMS1 
JSR PC. TYPCTC 
BR 3$ 


t NOW GET OUR FIRST ADDRESS 


BUSSE1: JSR PC, TYPOUT 
BAMSG 
1$: JSR PC,OCTIN 
TST RAND 
BNE 2$ 
JSR PC, TYPOUT 
NODEFM 
BR 1$ 
2s: BIT €2-R0 
48: SR PC, TYPOUT 
on . PC,PROCT 
BUSSE? 
3$ BIT #100000. RO 
BEQ 4$ 
BUSSE2: MOV RO ,BASADD 
MOV Meno Re 
BASADD DATA 
1$: CLR TRPERR 
TST @DATA 
TST TRPERR 
BEQ 2s 


ERROR- 
CHECK *LEVB Chek H* 
*LEVB V. H’ 
CYCLE TIMING ON 
ADDRESS 


LEVA 
COMPARATORS: ON LEVA 
TA, ADDRES 


MOV DATA 
JSR PC ERROR 


H 
10:58 PAGE 64-1 


9 


e. 


SAVE REGISTERS 

PLUG TRAP THRU 4 

ASK FOR NUMBER OF DEVICES 
READ DECIMAL REPLY 

NULL REPLY MEANS 1 

- NUMBER TOO BIG ? 
OR TOO SMALL 

OOPS , T 

ELSE SAVE COUNT 

a DEVICE SELECTED. 


NO- at DEVICES MUST G& 
SEQUENT IAL 


FIRST BUS ADDRESS = 


READ OCTAL REPLY 
DON'T ALLOW DEFAULTS 


THESE BITS CLEAR 
YES 


: NO ITS AN INVALID ADDRESS 


IT MUST BE ON THE IO PAGE 
SAVE START ADDRESS 

GET DEVICE COUNT 

AND WHERE DATA GOES 


CLEAR NXM FLAG 
CHECKIT 


OK ? 
YES 


; NO- THJS IS NAUGHTY 


SEQ 0111 





VTV3OK DIAGNOST 
CVVTCA.SRC 
4539 016242 
4540 016044 
| 4541 01 
454¢ 016250 
| 4543 01695 
4544 016056 
4545 01 
4546 01 
4547 016074 
4548 01 
4549 
4550 
4551 
4552 016302 
4553 016306 
4554 016310 
4555 016312 
4556 016314 
4557 016320 
4558 01 
4559 01 
4560 016332 
4561 016340 
4562 016346 
4563 016352 


= 


MACY11 30A(1052) 


10:36 


I 
O8-JAN-81 10:58 PAGE 64-2 


SELECT BUS ADDRESSES 


77+A 

TRAP+10 

1$ 

BR BUSSE * 

MOV DATA, (R2)+ 
ADD #2,DATA 
CLR TRPE 

TST aDATA 

TST TRPERR 
_BEQ 4$ 


K E4 ON 


7 E 

CHECK LEVA 

: BUS ve TIMING ON LEVA 
PC ERROR 


4$: 





eo 


MOV DATA, (R2)+ 
ADD + haatsaee 


DEC 

BNE 1$ 
MOV #64 
MOV 


44,6 
JSR PC,.RSTREG 
PC 


Be Be Be Be Be Be 


SAVE DATA 


CHECK FOR NXM 
IS IT ? 
NO- ALL IS WELL 


OOPS= NAUGHTY 
LOOP ON 
VE DBUFF ADDRESS 


SA 
; POINT TO NEXT CSR 


ALL CSRS DONE 
NO 


; RESET TRAP POINTERS 
; WITH THE IOT TRAP 


: YES EXIT 


SEQ 0112 








---——-— a 


VTV350K DIAGNOSTIC 
CVVTCA.SRC 08-JAN-81 


| 
=> 1 7 
Se Be 


Bb0569 
4569 016366 





98 Oh 30A (1052) 
10:36 


014734 
007544 


08-JAN-61 


J 
10:58 PAGE 65 


SELECT BUS ADDRESSES 


NXMTRP: JSR 
INC 
RTI 


PC, TYPOUT 
TRPERR 


9 


SEQ 0113 


VTV30K DIAGNOSTIC 
CVVTCA.SRC 


) 
| 


we Sh 30A(1052) 


Se Se Se Be Be Be Se Be Be Be Be Ge Be Be Be Be Be Be Be Be Be Be Se Be Be Be Be Ge Be Be Ge Be Be Be Be Be Be Be Ba Be Be Be Be Be Be Be Be Be Se Be Se Be Bs Be Ge 


i 
O8-JAN-81 10:58 PAGE 66 
NUMBER GENERATOR 


~SBTTL NUMBER GENERATOR 


DESCRIPTION: 
TO GENERATE DATA PATTERNS 


ROUT INE 
THE TYPE OF PATTERN IS SELECTED BY R3, THE 
PATTERN GENERATED IS RETURNED IN RO AND LOCATION 


CALLING SEQUENCE : 
JSR PC,GENER 
INPUT PARAMETERS: 
R3 CONTAINS THE PATTERN NUMBER 


R3=0_ ALL ZEROES 
1 AL Ss 


101010 ETC BIT PATT 

ROTATING 1 IN A ZERO WORD 
ROTATING 0 IN AN ALL ONE WORD 
PSEUDO RANDOM NUMBER 
INCREMENTING DATA PATTERN, GOOD 
CONTAINS THE VALUE TO BE UPDATED 


NOUS WIN 


IMPLICIT INPUT PARAMETERS: 

NONE 
OUTPUT PARAMETERS: 

THE NUMBER GENERATED IS HELD IN 
RO AND GOOD. 


IMPLICIT OUTPUT PARAMETERS: 
NONE 


COMPLETION CODES: 
NONE 


POSSIBLE ERROR CODES: 
NONE 


SEQ 0114 


-—————--——_—- 


VTV30K DIAGNOSTIC 





CVVTCA.SRC 08-JAN-81 
4627 
8 
16370 042 
1 O16874 QOe737 
01 % 
16408 164 
4635 o1641 o1ecse 
te? O1e41 errs 
4638 Bie) 16454 
4639 16464 
4640 01 1652 
464) at 1664 
Prey 016450 000507 
4644 016432 005000 
4645 016434 005100 
4646 0164 sp pans 
4647 016440 012700 
4648 016444 sp gad 
4649 016446 012700 
4650 016452 000476 
4651 016454 pone’ 
1636 B16626 004 
4653 01 000472 
4654 016464 000241 
4655 01 seth 
4656 0164 100 
4657 016474 000465 
3 016476 006057 


59 016502 1 
4660 016504 oi 







MACY11 30A(1052) 


10:36 


177770 
013740 


016406 


052525 
125252 


016476 
016476 
016520 
100000 
016520 


16542 
bo733 


007552 


00777 


1 
7 
7552 
7556 


007556 





016520 


007554 


007554 
007554 


Ll 9 
O8-JAN-81 10:58 PAGE 66-1 
NUMBER GENERATOR 


GEN1: 


GENS2: 
GEN25: 
GENR1: 


RANCLC: 


gapesgyragesaze 


agasaya- 


Zz 
= 
“ 


at bate Eh te 


CLC 


#177770,R3 
PC, SAVREG 


@GENSEL (R3) 


RO 

GENEX 

RO 

GENE X 
#50525 .RO 
Genes 
#125252,R0 
GENEX 
PC.,GENROT 
GENEX 


PC.,GENROT 


ALL ZERO WORD 
3ALL ONE WORD 
352 PATTERN 

725 PATTERN 

ROTATE °1° EACH CALL 
sROTATE ‘O° EACH CALL 
;RANDOM NUMBER 

3 Oe ING COUNT 
70>R0 

;NOTO>RO 


35252>R0 
2125252>R0 


;SHIFT 1 > RO 


SSHIFT 0 > RO 
;ROTATE 1 PATTERN 
z= 0? 

7YES, SET MSB 

sPUT 1 IN RO 

sAND EXI 


NUMBER IN RO 


SIS RANDOM = 0 
[YES, PUT RANDOM START VALUE IN 
[NO:1S RANSEL SELECT VALUE = 0 


SYES: SET RANSEL = 1 


GET R2 <0 AND 1> 


SEQ 0115 


Mm 9 
MACY11 30A(1052) O8=-JAN-81 10:58 PAGE 66-2 
10:36 NUMBER GENERATOR 


SEQ 0116 
RANG 
wANSEC: SEC 

007552 RANS: ROR RANDN ;ROTATE C TO 815 

DEC R3 :1S THIS NUMBER REQUIRED? 

BNE RAN2+4 ‘NO, GET ANOTHER 

RTS PC YES, EXIT 
007562 GENINC: mov GOOD .RO T INCREMENTS LOC. ‘GOOD’ 
007562 GENEX: MOV . 
000002 MOV RO, 2(SP) ;LOAD RO MAINROUT INE 
013776 JSR PC RSTREG 





VTV30K DIAGNOST 
CVVTCA.SRC 


C 
~JAN-81 


wy 30A(1052) 
10:36 


Bete Se Se Fe Se Se Se Se Se Be Se Be Be Se Be Be Be Be Be Be Be Fe Be Ge Ge Be Be Be Be Be Se Be Be Be Be Be Se Ge Fe Be Fe Be Ge Be Fe Be Ge Se Be Be Be Be Be Be 


enlae” te 10: ry PAGE 67 
PRINT ERROR MESSAGES 


-SBTTL PRINT ERROR MESSAGES 


DESCRIPTION: 


ROUTINE TO PRINT ERROR MESSAGES 

IF BIT 14 _IN THE IS_SET NO MESSAGES WILL BE 
PRINTED, IF BIT 15 IS SET THE PROGRAM WILL NO WAIT 
AFTER AN ERROR HAS BEEN PRINTED. IT IS CALLED THUS: 


JSR PC ,ERROR 
ARG 


Ve ete bie We CHEN reek in The ee F 
$ RANGE 0-177" 


IS THE 
AND X_ IS A COMBINATION OF FLAGS THAT INDICATE WHAT 
VALUES ARE TO BE PRINTED. THESE VALUES SHOULD BE L 
ta THE ERROR ROUTINE IS CALLED AND ARE DEF INED 














FOLLOWS : 
FLAG SETTING NUMBER LOCATION MESSAGE 
C 4000 CALLPC CALLED FROM 
Ss 10000 STATUS STATUS 
A 20000 ADDRES ADDRESS 
D 40000 DATA DATA 
G 100000 . GOOD= BAD = 


IN ADDITION THE ERROR NUMBER WILL BE COMBINED WITH 
THE TEST NUMBER TO INDICATE IN WHICH TEST THE ERROR 


S MAINTAINED AN ON EACH ERROR THE 

COUNT IS UPDATED. IF RUNNING UNDER A SOFTWARE SWITCH 
REGISTER, IT IS POSSIBLE TO SELECT NEW OPTIONS 
CALLING SEQUENCE: 

JSR PC,ERROR 
INPUT PARAMETERS: 

THE LOACTION FOLLOWING THE CALL 
CONTAINS THE ERROR CODE AND FLAG SETTINGS 
IMPLICIT INPUi PARAMETERS: 

NONE 


OUIPUT PARAMETERS: 


SEQ 0117 


B 10 
VTV30K DIAGNOSTIC MACY11 30A(1052) O8-JAN-81 10:58 PAGE 67-1 
CVVTCA. SRC JAN-81 10:36 PRINT ERROR MESSAGES SEQ 0118 


| 475 ; NONE 


ofa? ; 
4 ; 
| 4755 : IMPLICIT OUTPUT PARAMETERS: 
| $e 
4758 : THE APPROPRAITE ERROR MESSAGE WILL BE PRINTED 
4759 : IF PERMITTED. 
4760 3 
4761 : COMPLETION CODES: 
res | 3 
47 : NONE 
4764 3 
4765 3 
4766 : POSSIBLE ERROR CODES: 
4767 ; 
4768 : NONE 
4769 3 
4770 ; 
4771 : 
ton8 
4 016666 004737 013740 ERROR: JSR PC, SAVREG 
4774 016672 012737 000001 007444 MOV #1.ERRFLG : SET ERROR FLAG 
4775 016 005 007574 INC ERRDIS SINC COUNT 
4776 016704 001 BNE 1$ : CHECK FOR OVERFLOW 
4777 016706 005 007442 INC ERRDI1 + THEN INC OVERFLOW COUNT 
4778 01671 040000 170562 1S: BIT #40000, * SUPPRESS PRINTOUT 
4779 016 001 135 BNE ERHALT ; 
4780 016 017 000000 007576 MOV @(SP),ERRARG :NO 
4781 016 904737 014734 JSR PC, TYPOUT : TYPE MESSAGE 
4 016 7064 EMSG1 
4 016 013700 007454 MOV TESTNO,RO 
4784 0167 SWAB 
4785 0167 ASL RO 
4786 016746 1 007576 BISB _ ERRARG, RO 
4787 016 904 915024 JSR PC,PROCT 
4788 016 014 | JSR PC. TYPOUT 
4789 016762 007070 EMSG2 
4790 0167 11 MOV (SP) ,RO 
4791 0167 015024 JSR PC APROCT :PRINT 6 DIGITS 
4 i 000200 007577 BITB#  ERRARG*| 
4 $16 BEQ ERRSV 
479% 014734 JSR PC, TYPOUT 
ree) oF) 7562 m GOOD ,RO 
4797 6 O15094 JSR PC ,PROCT 
4 1 14 JSR PC; TYPOUT 
4 711 EMSG4 
4800 1 007564 
4801 01 915026 JSR ‘ PC,PROCT 
4802 100 007577 ERRSV1: BITB #100 ERRARG*1 sD SET ? 
7044 1407 BEQ ERRSV NO 
4804 01 014734 JSR PC, TYPOUT 
4805 01705 7126 EMSG5 
4806 017054 913 007566 DATA, RO 
4807 017060 015024 JSR PC ,PROCT 








: 
- 


CWICA. SRC JAN-81 
4808 01 132737 000040 007577 ERRSV2: 
4809 0170 1407 
4810 01707 7 014734 
4811 0171 5 
481g 017102 OI 07572 
4813 0171 15024 
4814 01711 000020 007577 ERRSV3: 
4815 017120 001407 
4816 0171 014734 
4817 0171 7153 
4818 017130 01 907570 
4819 0171 15024 
4820 017140 000010 007577 ERRSV4: 
4821 017146 001407 
482@ 017150 04757 014734 
017154 007166 
482% 01715 015700 907600 
42s 0171 015024 
OI7166 906737 014700 ERRSVS 
4827 017172 O047s7 014754 
8 HS BE cor 
2839 O17206 004757 015382 
4831 017210 52777 1 170264 ERHALT 
4832 017216 901004 
017220 013700 007574 
4834 017224 006737 013546 
4835 01 004737 013776 NOHAL T 
4836 01 062716 
4837 017240 000207 


MACY11 30A(1052)_ 08-J 
10:36 PRINT 


C_10 
AN-81 10:58 PAGE 67-2 


ERROR MESSAGES 
BITB #40,ERRARG+1 
BEQ ERRSV3 
JSR PC, TYPOUT 
EMSG6 
ADDRES RO 
996 
BITB #20,ERRARG+1 
ERRSV4 


EMSG 
MOV STATUS ,RO 


JSR PC ,PROCT 
BITB #10,EQRARG+1 
BEQ ERRSVS 
JSR PC, TYPOUT 
EMSG8 


NOHAL 
MOV press 


PC .MONI 
: JSR a 


ADD 2. (SP) 
PC 


: GO TO SWR 





SEQ 0119 


SEQ 0120 


10:58 PAGE 68 


NORMAL CHARACTER SET. 


MACY11 30A(1052) 08-JAN-81 


~JAN-81 10:36 


| VTV30K DIAGNOSTIC 
CWTCA. SRC 


| 


NORMAL CHARACTER SET. 


x 
vox CHARACTER SET IN ITS_MAIN 


~ 
_- 

~ ~ 

= & a <4 a 


a8 RSBBER SELES ee IOS: 


Reena taate reek reer enn esceregyceecssdgecs 


1 AT ADDRESS 13,8 A 


WITH_A POUND S 
GN AT ADDRESS 


:THIS 1S THE VT 
“DEGREE $1 


NORCH: 


; VERSION 


SEBS SSRSSLS SASS ASR ERSRRNSASS Se SSeS soso eSoSSSSSSS 
Bee eee e aS ees See Ska Shea Ress SoaNeeecooSSSSSSoS 


PES SSSERESRERS Soc ATMA ReSeRSSSeNoSSESSSSSSSSSS 








se ISERDEIEATT 


E 10 


Eee ee ee CSC + 


SEQ 0121 


3 e 8 
$ g z z : 
SRSAARMRORY ORS OEM GRIMM TGR GM GE OM OSI ORE SER OR REESE ERS 


*s 8s 88 88 8@ 8 &©& HF 8 HF 8& SF 8F F&F F&F FF FF HF FHFHSEHEHE HEHEHE HEA HE HEAR HEA EEE SES SB ees 8 8&8 8&8 & 


FISYIRIVRESOS HS ININGSIGENT SUIS SS "SYS SVS SS IIS EE SERRE SS 
sess 88 eee ee ees ese 8 F&F F&F F&F FHF HSFHEHEHAHHHAHEHEHAEHHE HAHAH HEHEHE HEHE HHDdDULMGDUHDUC®DULSMDULBHMWDUMUCMUCUCUSMCUS 
ea dieasie eben eemanaeeaee ieee Sek cas ct 
YIYNIOS GOOSONONY SONS SO CSONgO NOU youNOCCOONORN KT RER RK Sooo 

SoS ESKSORGO SIT INE E SEO SSIS UE UE AONE 


GS SP RE SARSDEASHRDASSOESASOSODASEASSEEOBKEOEGHEESDREBSSES EER ETEK ECC 











NOSCONS NANNING OFININS 
4 NSPS ASA S See Se SSN 
SSRN SSSR ORLY VASA “RS S ae eseen 

11 Tea al ii tia ii etal nn Dl Os i an Ni i ee i eS SS SS SS SSS OS 8 8 8 8 
3 Se RR ee ee NS SS Se SSS SEF ~ 

8 PIPPI TIP T EE TPT E TET EER TT TIENT sry CE. 
< BASAL AA ORY ORE SRNR SS SSR RRR SSS SSeS 

e.> IDSOCCOCOCCOC COSCO OOO COO COCO OOOO OO OSCOOOSOC ESS OCOSESESS9E0 
ou 
ee 
ow 
—e 

Yo 
5s 
@ 

£5 

re 
a 
o 

~ 
a Yr oouuyEsSO SISANINGSS yes SSSVYIYSSYIIISSSI ILLS ssssse 
= SSSSSSSSSSSSSSLESSSSSSSSSS SSSSSSSSSSSSSSErSSLAM 
~ O~t 0 SONS IS OOO NVOVYY 4-4 BOUMUYVOOO Ov VO 
ER BESSA SRS S aS SRS Sas A Sess sas aS ose ssessSecsooSNSSSSeeN 
3S 

— 





: om oneerenco 


vvwwyvywwevesvysss 


490 


as anna 


ee aaa 


_ VTV30K DIAGNOSTIC 


| CVVTCA.SRC - JAN~81 

| 4951 7 74 

| 495 70 

— 695 1 

| 4954 02101 0 

«8B Bs 

| 

«Be BS OS 

| 4958 02105 77 

| $959 021 991 
4960 0210 77 
Sie ae 
1968 031123 001 
4964 0211 000 
4965 021142 000 
4966 021152 010 
4967 021162 000 
4968 021172 030 
4969 021202 000 
4970 021212 010 
4971 021222 010° 
4972 021232 000 


F_10 
MACY11 30A(1052) O8-JAN-81 10:58 PAGE 68-2 


10:36 NORMAL CHARACTER SET. 
7% 7% TE 374,376,374,374,374,374,376,374 
70 70 BYTE : 70°37 
BYTE oO e 
0 0 Bye ° *340 
BYTE : ei ++ wi ++ c +4 . 44 : + c 
$60 («500 “BYTE $00 500,500. 500,900,900, 877 
601 «001 “BYTE ‘ “901 
001 «007 "BYTE P : 
200 200 “BYTE ; : 
600 600 BYTE : ‘ 
000 000 "BYTE é : 
000 «000 “BYTE 601. ; 
000 000 "BYTE 000. °001 
010 024 "BYTE 000. *000 
010 0380 "BYTE 010- °010 
074 «243146 “BYTE 000. “000 
060 + #»«140 “BYTE é °030 
000 000 "BYTE 000. °010 
010 ©0110 "BYTE 010. *000 
010 010 "BYTE 010. "000 
000 «000 "BYTE 000. 010 





3110 


3120 


SEQ 0122 


G 10 
VTV30K DIAGNOSTIC MACY11 30A(1052)_ O8=-JAN-81 10:58 PAGE 69 
| CWTCA.SRC 08-JAN-81 10:36 T.V.-ENCODED CHARACTER SET. SEQ 0123 





4974 .SBTTL 1.V.-ENCODED CHARACTER SET. 
4975 ; THIS CHARACTER SET IS SPECIALLY SELECTED TO REDUCE THE 
4976 + BANDWIDTH REQUIREMENTS FOR PAL ENCODING PURPOSES. 
4978 921 43 360 360 360 PALCH: . 
4979 5 030 030 030 , 9 
4981 1 7 074 07% 074 ’ 074 
1388 1 000 000 900 ; $80 
1 000 000 37 “ 
4985 021 030 030 030 f 
1 030 030 030 “ 
4987 02135 074 074 377 77, 7% 6:9 
4 1 003 006 014 a 
4989 021372 200 300 140 
4990 021 000 034 062 ¥ 176 
141 203 306 154 “ 203 
499 14g 074 176 377 074 
4993 0214 030 074 176 77, 030 
4 021442 030 030 074 030 
4995 021452 030 030 074 A 030 
4 021 146 146 146 46, 146 
4997 0214 314 314 314 14, 314 
4998 021502 377 000 377 a 000 =; 20 
4999 021512 377 377 - 
021522 377 303 : 
5001 021532 377 303 303 “ 
5002 021542 377 376 37% 200 
5003 921 552 377 307 177 M 
5004 136¢ 200 340 i 
5005 0215 003 007 017 s 77 
1602 003 007 016 . 
5007 021612 300 340 160 ¥ 99 
021622 303 347 176 “ 
021 000 160 120 i 
5010 021642 000 000 000 : 
5011 02165 000 030 030 x 
5012 021 000 066 066 
5013 021672 066 066 167 : 
5014 021 030 076 140 x 000 
171 000 146 146 s 146 
5016 000 060 154 a 076 
5017 000 030 030 x 
5018 02174 000 030 060 ‘ : 40 
5019 7 000 030 014 2006 
Oei7 000 066 034 066 
5021 021 000 000 030 O30 
92 000 000 000 2030 
2558 000 000 000 200 
5024 000 000 000 2000 
5025 000 006 006 060 40 
5026 000 074 146 6.146 74 
5027 0, 000 030 070 z 74 
5028 02 000 074 146 ¥ 76 «=; «50 
5029 0220 000 074 146 006. 146.074 





| VTV30K DIAGNOSTIC 


SEQ 0124 


So 
oO oO 

~ 
*. *e 





~~ ot tT 00007700 wrTo 
ase St SSF EASES ORES EPSE RAED RS BESSSSSSS. 


sess 888 ee eeeseeee ese ee eee eee 8&HFtsese &HFtste ee see & FHF HHH WSS SEF SF & S&S SBBAS 





SIGS RES SASS SE PSS SS SE IAS SS ISIE GK EIAS ISLS EERE ESSE 


esses eee eeseesee eee se eeseeesee*eeeeseeesese ese eeeegseeseesee ee eee eee eee se 8 8 Bese & 


RSSSIESS SS SSSR SSIS TIBOR IIIS IR ESSERE R Se SB 





So 
- 
- 
=4 
or 
ws 
we & 
ac 
— 
Y 
Le) 
= 
So 
eu 
a 
78 
23 
<2 
‘ea 
o> 
- 
~“-_ 
™N 
w So oo wwooqoownovnvo°cec°csd TOOOOOOVOOCOCOONDONOVUCOCO PR Sek SSS& 
- o- —-OOCCS kK K Or KKK KKK OOK KK KKK KKK OKT er KKK Oe < RSE 
~ 
~ 
w oO ww 
Eg ZRHREKSSZSSE SAK ENLLL IK SLI SIE REN LLG GES GLI RESO BISSIIE LO 
- or Or Oo CS O0O0Or Orr Or COK KKK Or Or Or KK Kr ereKeKK- -COOCO0COO°OmM 


Bite ee tet eh erie t ett itintictaant titi 
NAR ARAMA 


NON NNN 


ecco y 
a 
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5030 
S03 
S03 
50 
2036 
5037 
5038 
5039 
5040 
5041 
5044 
504 
5046 
5047 
5048 
5049 
5050 
5051 
2036 
3038 
5054 
5055 
5056 
5058 
5060 
5064 
506: 
5066 
5067 
5068 
ris 
a 


| 
| 
| 
| 
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is 
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MAC 


& 


SERSSNESSSSSSssSsEs 


8 


30A(1052) 


SESSSSRSSSSS 


aroun 
ws 
aos 


33 


oo 
WwW 
oo 


I 
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T.V.~ENCODED CHARACTER SET. 


es 


ss 8 8 & 








SEQ 0125 


VTV30K DIAGNOSTIC MACY11 30A(1052) O8-JAN-81_ 10:58 
SYMBOL TABLE 


| CVWTCA.SRC ~JAN-81 10:36 SEQ 0126 





A S DBUF 0 7310 FORGND MONITX 01364 
ADDRES DBUF 1 7314 FRMMSG NODEFM 7 
BAD 00 DBUF 10 F SAVPW T QI 
BAKGND 7 DBUF 17 FSTCNT NORCH 1724 
BAMSG 5 DBUF 1 § 0 G NOSYNC 01 
BASADD 2 DBUF 1 74 GENER NUMDEV 
BASE 7456 DBUF 14 7400 GENER1 NXMSG 732 
BASE1 Bor eSe DBUF 15 404 GENEX NXMTRP 016354 
BASEIA 0153 ad 007410 GENINC OCTIN 14034 
BASEIB 01 DBUFI17 007414 GENI SH OCTMSG 7 36 
BASEIC 015422 DBUF18 0074 GE OC TNUM 7 
BASEID 01 DBUFI9 007424 GENROT ODAMSG 7 
BASE1O 0153: DBUF GE PAL § 
BASE11 00 DBUF 0074 GENR1 PALCH 124 
BASMIO 015 DBUF 007324 GENSEL PARITY 7546 
BASIOA 015360 DBUFS 00 GENO PASMSG 500 
BELL 013166 DBUFS = 00 GEN1 PCHR 01 Ole 
BELL? 01 DBUF6 007340 GEN25 PMSG1 1475 SWR 
BLINK 007470 DBUF7 =—00 GENS2 ate 14774 
BUSSE] 016110 DBUF8 007350 GETCH1 PMS 15000 SWRSET 01 
2 016170 DBUF9 == 007354 Stee PMSG4 015004 SYNCUP 011644 
600 DECMSG 007250 GET PRCTIA 015046 TABLE 1366 
CARX 007474 DEVBUF 007440 PRNTS 015116 TAL E1 1412 
CARY 007476 DEVCNT 00 GETSTR PROCT 1 anes TABLE2 1436 
50 DEVCSR 007436 G PROCT1 0150 TEMG 73 
CHRCOD 005716 DEVFLG 00 GOMS1 PROCT 1 3928 TEST 007454 
CHRFIN 014656 DEVLST 012374 PROCT. 1510. TESTR 011624 
CHXLST 7266 EMSG1 00 HSWR = PROM 7 TESTO 001450 
CNVFLG 7602 EMS 007070 ILLCHR 1 TEST 1 
014700 EMS 00710 ILLVE TEST 10 $08 
CSRO EMSG4 00711 TEST 11 
CSR1 007312 EMSGS 007124 TEST 174 
CSR10 7356 EMSG6 007135 LINDE TEST. 54 
CSRi1 007362 EMSG7 007153 LINDL TEST4 16 
CSR12 007366 EMSGB 007166 LINECH TESTS 003110 
SR13 7372 EMSG9 007205 Ss TESTSA 003142 
CSR14 007376 ENDIT 01 LOELEM TEST 234 
CSR15 007402 E T 017210 TEST 
CSR16 7406 E 007576 LSIFLG TKB == 177562 
CSR17 007412 ERRDIS 007574 TKS = 177560 
CSR18 007416 ERRDI1 007442 TPB = 177566 
CSR19 7422 ERRFLG 007444 MODIFY TPDEC1 0151 
Cc 007316 E 1 TPDEC 15 
Cc Ores ERRSV1 017036 MODI TPDEC 15272 
Cc RRS 1 MODI TPDECS 015 
CSR4 00 ERRSV. af MOD 14 TPDECS 015316 
CSRS 00 ERRSV4 4H 714 MODIS TPREDY 015276 
007336 ERRSVS 17168 TPS = 
CSR7 007342 FADR 131 6 MODSAV TRAP SV ise 
CSR8 00 FASTSW 01 398 MOD SPA TRPARG 16 
CSR9 00735 FILL 127 MODXIT Q1 TRPBAK 013534 
= FILL1 012754 MONIT 13546 TRPERR 7544 
DATA 007566 F 007472 MONITA 013640 TRPLP =: 013470 
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TRPMEM 007522 TYPOTD 014154 T0106 1 T051 3357 T0710 5074 
TRPSCP 013444 TYPOTE 014172 18 01 T051 ; 74 T0771 102 
TRPSEL 20 TYPOUT 01 re TOZ02 6 b250 70 1077 § 

TSOMSG T0001 1472 T0301 4 60 1077 5 
TSIMSG TOO0O 1506 70 ; 4 7060 T1001 5310 
TS10MS T 1514 TO. 4% T a) 

Beet se T 153, TO. 5 VECTOR 4 14 
1$ Lh '4'¢ 1 T0305 T0605 re VIDEON 4% 

TS4MSG poeees T 1 T0401 64 4 I 1 
TSSMSG 0064 T 001654 Lot <4 6 T 444 WAIT BO 336 
TS6MSG 006441 T0010 §=©001672 T040 7 T0615 570 

TS7MSG pugs ee T0011 i 740 Lb o's T0701 A's) 7 
TYPCTC 013656 T0013 1774 T040 6 T070 — 1176 
TYPDEC 015150 T0101 002064 T0409 Bp bes 7070 73 XXxD> 1e6 
TYPD1 007534 7010. 002072 3052 T0704 005016 YMAK 007500 
TYPOTA 007530 7010. 00210 TOSXIT 004214 T0705 005032 SENDAD 013142 
TYPOTB 014040 104 00211 1 003134 T07' 005044 ° = 023242 
TYPOTC 014120 T0105 = 002122 T0502 003226 T0707 005056 

- ABS. 023242 000 


ERRORS DETECTED: 0 


CWTCA.BIN, CVVTCA.LPT/NL : TOC=CWTCA. SRC 
RUN-TIME: 14 28 1 SECONDS 

RUN-TIME RATIO: 85/44=1. 

CORE USED: 13K (25 PAGES) 


